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

remove all initialization/1 in a single swoop.

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-05-28 16:07:20 +01:00
parent d1599bca8d
commit 8d93e8f9b9
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pl/consult.yap
View File

@ -321,7 +321,8 @@ use_module(M,F,Is) :-
'$show_consult_level'(Level1), '$show_consult_level'(Level1),
% it will be done after we leave the current consult level. % it will be done after we leave the current consult level.
Level is Level1-1, Level is Level1-1,
recorda('$initialisation',do(Level,G),_), writeln(+Level:G),
recordz('$initialisation',do(Level,G),_),
fail. fail.
'$initialization'(_). '$initialization'(_).
@ -386,10 +387,13 @@ use_module(M,F,Is) :-
fail. fail.
'$exec_initialisation_goals' :- '$exec_initialisation_goals' :-
'$show_consult_level'(Level), '$show_consult_level'(Level),
recorded('$initialisation',do(Level,G),R),
erase(R),
G \= '$',
'$current_module'(M), '$current_module'(M),
findall(
G,
(recorded('$initialisation',do(Level,G),R), erase(R), G\='$'),
LGs),
lists:member(G,LGs),
writeln(doing:Level:G),
nb_getval('$system_mode', OldMode), nb_getval('$system_mode', OldMode),
( OldMode == on -> '$exit_system_mode' ; true ), ( OldMode == on -> '$exit_system_mode' ; true ),
% run initialization under user control (so allow debugging this stuff). % run initialization under user control (so allow debugging this stuff).