indenting
This commit is contained in:
parent
832b2258c8
commit
0c88265943
@ -1041,6 +1041,9 @@ true if source for the predicate is available.
|
||||
Number of clauses in the predicate definition. Always one if external
|
||||
or built-in.
|
||||
|
||||
+ `notrace`
|
||||
The predicate definition cannot be traced.
|
||||
|
||||
|
||||
|
||||
*/
|
||||
@ -1110,6 +1113,10 @@ predicate_property(Pred,Prop) :-
|
||||
'$number_of_clauses'(P,Mod,NCl).
|
||||
'$predicate_property'(P,Mod,_,file(F)) :-
|
||||
'$owner_file'(P,Mod,F).
|
||||
'$predicate_property'(P,Mod,_,notrace) :-
|
||||
'$owner_file'(P,Mod,F).
|
||||
'$flags'(P,Mod,F,F),
|
||||
F /\ 0x400000000 =\= 0.
|
||||
|
||||
|
||||
/**
|
||||
@ -1314,4 +1321,3 @@ clause_property(ClauseRef, predicate(PredicateIndicator)) :-
|
||||
/**
|
||||
@}
|
||||
*/
|
||||
|
||||
|
Reference in New Issue
Block a user