From: Skgland <bennet.blessmann+github@googlemail.com>
Date: Tue, 2 Jan 2024 18:55:27 +0000 (+0100)
Subject: fix os:argv/1
X-Git-Tag: v0.9.4~40^2~8
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=91df5338342110e929b0ac124f527311f3c54b7c;p=scryer-prolog.git

fix os:argv/1
---

diff --git a/src/lib/os.pl b/src/lib/os.pl
index a991bd6c..e3c287e6 100644
--- 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 = []
     ).