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

Go back and accept only list of chars

Browse Source
This commit is contained in:
Adrián Arroyo Calle
2021-10-15 17:22:15 +02:00
parent 3f4d62952a
commit 44dd9ae9fb
1 changed files with 2 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/lib/os.pl
View File

@@ -39,13 +39,9 @@ unsetenv(Key) :-
shell(Command) :- shell(Command, 0). shell(Command) :- shell(Command, 0).
shell(Command, Status) :- shell(Command, Status) :-
( atom_si(Command) -> must_be_chars(Command),
atom_chars(Command, CommandChars)
; Command = CommandChars
),
must_be_chars(CommandChars),
can_be(integer, Status), can_be(integer, Status),
'$shell'(CommandChars, Status). '$shell'(Command, Status).
pid(PID) :- pid(PID) :-
can_be(integer, PID), can_be(integer, PID),