diff --git a/src/lib/os.pl b/src/lib/os.pl index e3c287e6..152077ae 100644 --- a/src/lib/os.pl +++ b/src/lib/os.pl @@ -138,7 +138,6 @@ argv(Argv) :- can_be(list, Argv), '$argv'(Argv0), ( append(Argv1, ["--"|Argv], Argv0) -> - \+ member("--", Argv1), - true + \+ member("--", Argv1) ; Argv = [] ).