fix os:argv(V) not completing

This commit is contained in:
Skgland
2024-01-02 21:43:38 +01:00
committed by Bennet Bleßmann
parent 76b1167842
commit 8bd0317e9c

View File

@@ -139,7 +139,8 @@ argv(Argv) :-
'$argv'(Argv0), '$argv'(Argv0),
( member("--", Argv0) -> ( member("--", Argv0) ->
append(Argv1, ["--"|Argv], Argv0), append(Argv1, ["--"|Argv], Argv0),
\+ member("--", Argv1) \+ member("--", Argv1),
!
; ;
Argv = [] Argv = []
). ).