fix cyclic_term mess up from yesterday.

2012-10-03 09:11:37 +01:00
parent a3757ddbd7
commit e60b485134
3 changed files with 7 additions and 178 deletions
--- a/C/unify.c
+++ b/C/unify.c
@@ -436,6 +436,11 @@ p_cyclic( USES_REGS1 )
  return rational_tree(t);
 }

+int Yap_IsAcyclicTerm(Term t)
+{
+  return !rational_tree(t);
+}
+
 static Int
 p_acyclic( USES_REGS1 )
 {