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

fix confusion with file names.

This commit is contained in:
Vitor Santos Costa 2010-02-26 13:41:40 +00:00
parent d7c74d8888
commit b4481ca98c
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/boot.yap
View File

@ -1002,7 +1002,7 @@ break :-
bootstrap(F) :-
'$open'(F, '$csult', Stream, 0, 0, F),
'$current_stream'(File,_,Stream),
'$file_name'(Stream,File),
'$start_consult'(consult, File, LC),
file_directory_name(File, Dir),
getcwd(OldD),

2
pl/consult.yap
View File

@ -214,7 +214,7 @@ use_module(M,F,Is) :-
nb_getval('$consulting_file',OldF),
'$set_consulting_file'(Stream),
H0 is heapused, '$cputime'(T0,_),
'$current_stream'(File,_,Stream),
'$file_name'(Stream,File),
'$fetch_stream_alias'(OldStream,'$loop_stream'),
'$change_alias_to_stream'('$loop_stream',Stream),
nb_getval('$consulting',Old),