use once to limit solutions instead of cut

triska · Jan 4, 2024 · ea0130d · ea0130d
1 parent e66e7c5
commit ea0130d
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/lib/os.pl b/src/lib/os.pl
@@ -138,9 +138,8 @@
     can_be(list, Argv),
     '$argv'(Argv0),
     ( member("--", Argv0) ->
-        append(Argv1, ["--"|Argv], Argv0),
-        \+ member("--", Argv1),
-        !
+        once(append(Argv1, ["--"|Argv], Argv0)),
+        \+ member("--", Argv1)
     ;
         Argv = []
     ).