clpbn

2019-02-14 09:08:15 +00:00
parent 302519868f
commit 4b5ae9331f
3 changed files with 2 additions and 4 deletions
--- a/C/terms.c
+++ b/C/terms.c
@@ -1403,10 +1403,10 @@ static Int create_entry(Term t, Int i, Int j,  cl_connector * q, Int max) {
  } else if (IsApplTerm(t)) {
    Int me;
    h = (CELL)FunctorOfTerm(t);
-    n = ArityOfFunctor((Functor)h);
    if (IsExtensionFunctor((Functor)h)) {
      return -1;
    }
+    n = ArityOfFunctor((Functor)h);
     if (IsAtomTerm(h) &&
      (me = t_ref((cl_connector*)AtomOfTerm(h),q,max)) >= 0) {
        return me;