fix ref to clauses from MegaClauses

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1157 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2004-10-06 21:15:49 +00:00
parent 7efbf340a5
commit 2ad440faf5
3 changed files with 11 additions and 10 deletions
--- a/C/dbase.c
+++ b/C/dbase.c
@@ -4558,7 +4558,8 @@ mega_instance(yamop *code, PredEntry *ap)
    CELL *ptr;

    if (IsVarTerm(t2)) {
-      Yap_unify(ARG2, (t2 = Yap_MkNewApplTerm(f,arity)));
+      t2 = Yap_MkNewApplTerm(f,arity);
+      Yap_unify(ARG2, t2);
    } else if (!IsApplTerm(t2) || FunctorOfTerm(t2) != f) {
      return FALSE;
    }