diogo
/
yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

another victim of system module name change.

This commit is contained in:
Vítor Santos Costa II 2010-04-22 12:12:24 +01:00
parent 3272d5d230
commit 2dcf02687e
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pl/yio.yap
View File

@ -69,7 +69,7 @@ open(F,T,S,Opts) :-
'$expand_filename'(false, F, F) :- !.
'$expand_filename'(true, F, NF) :-
system:true_file_name(F, NF).
operating_system_support:true_file_name(F, NF).
'$open2'(Source,M,T,N,_,_) :- var(Source), !,
'$do_error'(instantiation_error,open(Source,M,T,N)).
@ -1148,11 +1148,10 @@ prolog_file_name(File, PrologFileName) :-
prolog_file_name(user, Out) :- !, Out = user.
prolog_file_name(File, PrologFileName) :-
atom(File), !,
system:true_file_name(File, PrologFileName).
operating_system_support:true_file_name(File, PrologFileName).
prolog_file_name(File, PrologFileName) :-
'$do_error'(type_error(atom,T), prolog_file_name(File, PrologFileName)).
with_output_to(Output, Command) :-
setup_call_cleanup( '$setup_wot'(Output, Stream, OldStream, with_output_to(Output, Command)),
once(Command),