From 76b1167842233ffad7f659e391f219810cabf34c Mon Sep 17 00:00:00 2001
From: Skgland <bennet.blessmann+github@googlemail.com>
Date: Tue, 2 Jan 2024 20:54:37 +0100
Subject: [PATCH] fix os:argv

---
 src/lib/os.pl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/lib/os.pl b/src/lib/os.pl
index 152077ae..8b0087a4 100644
--- 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("--", Argv1)
-    ;    Argv = []
+    ( member("--", Argv0) ->
+        append(Argv1, ["--"|Argv], Argv0),
+        \+ member("--", Argv1)
+    ;
+        Argv = []
     ).
-- 
2.54.0