fix debugging of [-f].

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@398 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2002-03-04 15:55:13 +00:00
parent a97390c1c3
commit 43cad85ace
3 changed files with 21 additions and 5 deletions
--- a/C/cdmgr.c
+++ b/C/cdmgr.c
@@ -2251,6 +2251,8 @@ p_system_pred(void)
      goto restart_system_pred;
    }
    pe = RepPredProp(GetPredPropByFunc(funt, mod));
+  } else if (IsPairTerm(t1)) {
+    return (TRUE);
  } else
    return (FALSE);
  if (EndOfPAEntr(pe))