fix os:argv

2024-01-02 20:54:37 +01:00
parent 7537686d8f
commit 76b1167842
1 changed files with 5 additions and 3 deletions
--- a/src/lib/os.pl
+++ b/src/lib/os.pl
@@ -137,7 +137,9 @@ raw_argv(Argv) :-
 argv(Argv) :-
    can_be(list, Argv),
    '$argv'(Argv0),
-    (    append(Argv1, ["--"|Argv], Argv0) ->
+    ( member("--", Argv0) ->
+        append(Argv1, ["--"|Argv], Argv0),
        \+ member("--", Argv1)
-    ;    Argv = []
+    ;
+        Argv = []
    ).