This commit is contained in:
Vítor Santos Costa 2015-11-12 14:53:31 +00:00
parent a91796e4c8
commit e4f5264ded

View File

@ -143,7 +143,7 @@ Execute a new shell.
unix(V) :- var(V), !, unix(V) :- var(V), !,
'$do_error'(instantiation_error,unix(V)). '$do_error'(instantiation_error,unix(V)).
unix(argv(L)) :- unix(argv(L)) :-
prolog_flag(argv, L). current_prolog_flag(argv, L).
unix(cd) :- cd('~'). unix(cd) :- cd('~').
unix(cd(A)) :- cd(A). unix(cd(A)) :- cd(A).
unix(environ(X,Y)) :- '$do_environ'(X,Y). unix(environ(X,Y)) :- '$do_environ'(X,Y).