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

fix initialization/1 (obs from Paulo Moura).

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-01-18 14:34:30 +00:00
parent d78591f73c
commit e860bd7ee1
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pl/consult.yap
View File

@ -347,14 +347,6 @@ use_module(M,F,Is) :-
% ignore for now. % ignore for now.
'$initialization'(G,restore). '$initialization'(G,restore).
'$initialization'(G) :-
'$show_consult_level'(Level1),
% it will be done after we leave the current consult level.
Level is Level1-1,
recorda('$initialisation',do(Level,G),_),
fail.
'$initialization'(_).
'$exec_initialisation_goals' :- '$exec_initialisation_goals' :-
nb_setval('$initialization_goals',on), nb_setval('$initialization_goals',on),
fail. fail.