allow reconsult of tabled predicates
This commit is contained in:
parent
e4fbd39cab
commit
51535a86ce
@ -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,
|
||||
|
Reference in New Issue
Block a user