rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix os:argv/1

Browse Source
This commit is contained in:
Skgland
2024-01-02 19:55:27 +01:00
committed by Bennet Bleßmann
parent 9a05ca0667
commit 91df533834
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/lib/os.pl
View File

@@ -137,7 +137,8 @@ raw_argv(Argv) :-
argv(Argv) :- argv(Argv) :-
can_be(list, Argv), can_be(list, Argv),
'$argv'(Argv0), '$argv'(Argv0),
( append(_, ["--"|Argv], Argv0) -> ( append(Argv1, ["--"|Argv], Argv0) ->
\+ member("--", Argv1),
true true
; Argv = [] ; Argv = []
). ).