From 45041be336cd052f605cb8dc74d72830cb666dcb Mon Sep 17 00:00:00 2001 From: =?utf8?q?Bennet=20Ble=C3=9Fmann?= Date: Wed, 30 Jul 2025 22:14:43 +0200 Subject: [PATCH] fix culprit --- src/lib/process.pl | 2 +- tests/scryer/cli/src_tests/process.md | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/lib/process.pl b/src/lib/process.pl index b754c331..12650416 100644 --- a/src/lib/process.pl +++ b/src/lib/process.pl @@ -142,7 +142,7 @@ must_be_known_options(Valid, Options, Domain, Context) :- must_be_known_options_ must_be_known_options_(_, _, [], _, _). must_be_known_options_(Valid, Found, [X|XS], Domain, Context) :- ( functor(X, Option, 1) -> true - ; domain_error(Domain, Option , Context) + ; domain_error(Domain, X , Context) ) , ( member(Option, Found) -> domain_error(non_duplicate_options, Option , Context) ; member(Option, Valid) -> true diff --git a/tests/scryer/cli/src_tests/process.md b/tests/scryer/cli/src_tests/process.md index 59e8de10..bb198d23 100644 --- a/tests/scryer/cli/src_tests/process.md +++ b/tests/scryer/cli/src_tests/process.md @@ -1,6 +1,6 @@ ```trycmd $ scryer-prolog -f --no-add-history -g 'use_module(library(process)), process_create("", [], [invalid, process(P)]), process_kill(P), halt' -use_module(library(process)),process_create([],[],[invalid,process(P)]),process_kill(P),halt causes: error(domain_error(process_create_option,_[..]),process_create/3) +use_module(library(process)),process_create([],[],[invalid,process(P)]),process_kill(P),halt causes: error(domain_error(process_create_option,invalid),process_create/3) ``` -- 2.54.0