alwas make sure you are looking at a variable before checking IsUnboundVar

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1130 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2004-09-08 19:06:57 +00:00
parent 6a4d9ef41a
commit 3c44b02093
2 changed files with 4 additions and 4 deletions
--- a/C/utilpreds.c
+++ b/C/utilpreds.c
@@ -1691,7 +1691,7 @@ static int subsumes_complex(register CELL *pt0, register CELL *pt0_end, register
    /* cell we created */
    CELL *npt1 = (CELL *)*pt1;
    /* shorten the chain */
-    if (IsUnboundVar(*pt1)) {
+    if (IsVarTerm(*pt1) && IsUnboundVar(*pt1)) {
      RESET_VARIABLE(pt1);
    } else {
      *pt1 = *npt1;