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

SWI actually calls initialization after exiting the directory (obs from Paulo Moura).

Browse Source
This commit is contained in:
Vítor Santos Costa II 2010-04-12 18:30:39 +01:00
parent 51c6ac37d9
commit 9def5978bb
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/consult.yap
View File

@ -265,7 +265,6 @@ use_module(M,F,Is) :-
true true
), ),
'$loop'(Stream,Reconsult), '$loop'(Stream,Reconsult),
( recorded('$dialect',swi,_) -> '$exec_initialisation_goals' ; true ),
H is heapused-H0, '$cputime'(TF,_), T is TF-T0, H is heapused-H0, '$cputime'(TF,_), T is TF-T0,
'$current_module'(Mod,OldModule), '$current_module'(Mod,OldModule),
print_message(InfLevel, loaded(EndMsg, File, Mod, T, H)), print_message(InfLevel, loaded(EndMsg, File, Mod, T, H)),
@ -386,8 +385,7 @@ use_module(M,F,Is) :-
'$notrace'(G), '$notrace'(G),
fail. fail.
'$exec_initialisation_goals' :- '$exec_initialisation_goals' :-
'$show_consult_level'(Level1), '$show_consult_level'(Level),
( recorded('$dialect',swi,_) -> Level is Level1-1 ; Level = Level1),
recorded('$initialisation',do(Level,G),R), recorded('$initialisation',do(Level,G),R),
erase(R), erase(R),
G \= '$', G \= '$',