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

ensure loading is recognised.

This commit is contained in:
Vítor Santos Costa 2014-10-05 10:20:36 +01:00
parent 11b957f5fe
commit 8345bf3e24
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pl/qly.yap
View File

@ -738,8 +738,12 @@ qload_file( F0 ) :-
'$exec_initialisation_goals'.
'$qload_file'(S, SourceModule, F, FilePl, _F0, _ImportList) :-
recorded('$lf_loaded','$lf_loaded'( F, _Age, SourceModule), _),
recorded('$lf_loaded','$lf_loaded'( FilePl, _Age, SourceModule), _),
!.
'$qload_file'(S, SourceModule, F, FilePl, _F0, _ImportList) :-
( FilePl == user_input -> Age = 0 ; time_file64(FilePl, Age) ),
recorda('$lf_loaded','$lf_loaded'( FilePl, Age, SourceModule), _),
fail.
'$qload_file'(S, _SourceModule, _File, _FilePl, _F0, _ImportList) :-
'$qload_file_preds'(S),
fail.