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

fix confusion with file names.

Browse Source
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) :- bootstrap(F) :-
'$open'(F, '$csult', Stream, 0, 0, F), '$open'(F, '$csult', Stream, 0, 0, F),
'$current_stream'(File,_,Stream), '$file_name'(Stream,File),
'$start_consult'(consult, File, LC), '$start_consult'(consult, File, LC),
file_directory_name(File, Dir), file_directory_name(File, Dir),
getcwd(OldD), getcwd(OldD),

2
pl/consult.yap
View File

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