fix os:argv/1

diff --git a/src/lib/os.pl b/src/lib/os.pl
index a991bd6c04d146e71999379f4aa4d0166fc2fbb9..e3c287e68568c4c7dd74cafc19456afb06e66724 100644 (file)
--- a/src/lib/os.pl
+++ b/src/lib/os.pl
@@ -137,7 +137,8 @@ raw_argv(Argv) :-
 argv(Argv) :-
     can_be(list, Argv),
     '$argv'(Argv0),
-    (    append(_, ["--"|Argv], Argv0) ->
+    (    append(Argv1, ["--"|Argv], Argv0) ->
+         \+ member("--", Argv1),
         true
     ;    Argv = []
     ).