fix unify_with_occurs_check/2 with floats and friends.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1776 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2007-01-24 09:36:14 +00:00
parent 4ae81b0fee
commit 0f9cb472c6
2 changed files with 4 additions and 0 deletions
--- a/C/unify.c
+++ b/C/unify.c
@@ -146,6 +146,8 @@ rational_tree(Term d0) {
    CELL *pt0 = RepAppl(d0);
    Functor f = (Functor)(*pt0);

+    if (IsExtensionFunctor(f))
+      return FALSE;
    return rational_tree_loop(pt0, pt0+ArityOfFunctor(f), TO_VISIT);
  } else
    return FALSE;