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

make sure we don't redo things.

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-04-21 15:19:26 -05:00
parent af69088bc3
commit 9d07b51937
3 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
pl/boot.yap
View File

@ -102,6 +102,7 @@ true :- true.
nb_setval('$if_level',0),
nb_setval('$endif',off),
nb_setval('$consulting_file',[]),
nb_setval('$initialization_goals',off),
nb_setval('$consulting',false),
nb_setval('$included_file',[]).

6
pl/consult.yap
View File

@ -302,6 +302,9 @@ use_module(M,F,Is) :-
fail.
'$initialization'(_).
'$exec_initialisation_goals' :-
nb_setval('$initialization_goals',on),
fail.
'$exec_initialisation_goals' :-
recorded('$blocking_code',_,R),
erase(R),
@ -331,7 +334,8 @@ use_module(M,F,Is) :-
'$enter_system_mode',
fail
).
'$exec_initialisation_goals'.
'$exec_initialisation_goals' :-
nb_setval('$initialization_goals',off).
'$include'(V, _) :- var(V), !,
'$do_error'(instantiation_error,include(V)).

4
pl/directives.yap
View File

@ -244,8 +244,10 @@ yap_flag(generate_debug_info,false) :- !,
yap_flag(generate_debug_info,X) :-
'$do_error'(domain_error(flag_value,generate_debug_info+X),yap_flag(generate_debug_info,X)).
'$enable_restore_flag_info'(_Flag) :-
'$enable_restore_flag_info'(_) :-
nb_getval('$consulting_file',[]), !.
'$enable_restore_flag_info'(_) :-
nb_getval('$initialization_goals',on), !.
'$enable_restore_flag_info'(Flag) :-
'$show_consult_level'(Level1),
yap_flag(Flag, Info),