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

ensure_loaded would never again reconsult a file, even if the file 

had been changed meanwhile.


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1170 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2004-11-01 15:54:01 +00:00
parent 33207cac91
commit 91d385147e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/consult.yap
View File

@ -243,9 +243,9 @@ prolog_load_context(term_position, Position) :-
'$loaded_file'(F,M,F1) :-
recorded('$loaded','$loaded'(F1,M,Age),R),
'$same_file'(F1,F), !,
'$loaded_file_age'(F, R).
'$loaded_file_age'(F, R, Age).
'$loaded_file_age'(F, R) :-
'$loaded_file_age'(F, R, Age) :-
'$file_age'(F,CurrentAge),
((CurrentAge = Age ; Age = -1) -> true; erase(R), fail).