erase_source is not used any longer: source is packaed with code.

This commit is contained in:
Vítor Santos Costa 2014-08-20 08:01:20 -05:00
parent 6efb3176f7
commit 373d488974

View File

@ -233,7 +233,6 @@ assertz_static(C) :-
( get_value('$abol',true)
->
'$flags'(Head,Mod,Fl,Fl),
( Fl /\ 0x00400000 =\= 0 -> '$erase_source'(Head,Mod) ; true ),
( Fl /\ 0x20000000 =\= 0 -> '$check_multifile_pred'(Head,Mod,Fl) ; true )
;
true
@ -252,7 +251,6 @@ assertz_static(C) :-
( get_value('$abol',true)
->
'$flags'(Head,Mod,Fl,Fl),
( Fl /\ 0x00400000 =\= 0 -> '$erase_source'(Head,Mod) ; true ),
( Fl /\ 0x20000000 =\= 0 -> '$check_multifile_pred'(Head,Mod,Fl) ; true )
;
true