simplify os:argv/1 fix

triska · Jan 4, 2024 · 78b83ca · 78b83ca
1 parent ea0130d
commit 78b83ca
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/lib/os.pl b/src/lib/os.pl
@@ -137,9 +137,8 @@
 argv(Argv) :-
     can_be(list, Argv),
     '$argv'(Argv0),
-    ( member("--", Argv0) ->
-        once(append(Argv1, ["--"|Argv], Argv0)),
-        \+ member("--", Argv1)
+    ( append(_, ["--"|Argv1], Argv0) ->
+        Argv = Argv1
     ;
         Argv = []
     ).