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

simplify os:argv/1 fix
---

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