simplify os:argv/1 fix

2024-01-04 19:26:10 +01:00
parent ea0130d114
commit 78b83ca1e1
1 changed files with 2 additions and 3 deletions
--- a/src/lib/os.pl
+++ b/src/lib/os.pl
@@ -137,9 +137,8 @@ raw_argv(Argv) :-
 argv(Argv) :-
    can_be(list, Argv),
    '$argv'(Argv0),
-    ( member("--", Argv0) ->
-        once(append(Argv1, ["--"|Argv], Argv0)),
-        \+ member("--", Argv1)
+    ( append(_, ["--"|Argv1], Argv0) ->
+        Argv = Argv1
    ;
        Argv = []
    ).