Merge branch 'master' of ssh://git.dcc.fc.up.pt/yap-6.3

2012-03-06 14:12:39 +00:00
parent 6075bde029 bf15197e49
commit fd0cf6ee14
13 changed files with 14819 additions and 4121 deletions
--- a/C/utilpreds.c
+++ b/C/utilpreds.c
@@ -4223,10 +4223,9 @@ camacho_dum( USES_REGS1 )
 int
 Yap_IsListTerm(Term t)
 {
-  while (!IsVarTerm(t) && IsPairTerm(t)) {
-    t = TailOfTerm(t);
-  }
-  return t == TermNil;
+  Term *tailp;
+  Yap_SkipList(&t, &tailp);
+  return *tailp == TermNil;
 }

 static Int