allow reconsult of tabled predicates

This commit is contained in:
Vitor Santos Costa 2013-12-16 15:11:30 +00:00
parent e4fbd39cab
commit 51535a86ce

View File

@ -130,6 +130,9 @@ table(Pred) :-
'$set_table'(Mod,PredFunctor,PredModeList) :-
'$undefined'(PredFunctor,Mod), !,
'$c_table'(Mod,PredFunctor,PredModeList).
'$set_table'(Mod,PredFunctor,PredModeList) :-
'$flags'(PredFunctor,Mod,Flags,Flags),
Flags /\ 0x00000040 =:= 0x00000040, !.
'$set_table'(Mod,PredFunctor,PredModeList) :-
'$flags'(PredFunctor,Mod,Flags,Flags),
Flags /\ 0x1991F8C0 =:= 0,