use once to limit solutions instead of cut

2024-01-04 18:14:32 +01:00
parent e66e7c5034
commit ea0130d114
1 changed files with 2 additions and 3 deletions
--- a/src/lib/os.pl
+++ b/src/lib/os.pl
@@ -138,9 +138,8 @@ argv(Argv) :-
    can_be(list, Argv),
    '$argv'(Argv0),
    ( member("--", Argv0) ->
-        append(Argv1, ["--"|Argv], Argv0),
-        \+ member("--", Argv1),
-        !
+        once(append(Argv1, ["--"|Argv], Argv0)),
+        \+ member("--", Argv1)
    ;
        Argv = []
    ).