cache getClassPredicate

This commit is contained in:
Erik Krogh Kristensen
2021-10-13 13:26:37 +02:00
parent 584702058d
commit 705e24690f

View File

@@ -76,7 +76,7 @@ class Type extends TType {
p2 = classPredCandidate(this, name, arity)
}
pragma[nomagic]
cached
PredicateOrBuiltin getClassPredicate(string name, int arity) {
result = classPredCandidate(this, name, arity) and
not getClassPredicate1(name, arity, _, result)