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
This commit is contained in:
parent
4ae81b0fee
commit
0f9cb472c6
@ -146,6 +146,8 @@ rational_tree(Term d0) {
|
|||||||
CELL *pt0 = RepAppl(d0);
|
CELL *pt0 = RepAppl(d0);
|
||||||
Functor f = (Functor)(*pt0);
|
Functor f = (Functor)(*pt0);
|
||||||
|
|
||||||
|
if (IsExtensionFunctor(f))
|
||||||
|
return FALSE;
|
||||||
return rational_tree_loop(pt0, pt0+ArityOfFunctor(f), TO_VISIT);
|
return rational_tree_loop(pt0, pt0+ArityOfFunctor(f), TO_VISIT);
|
||||||
} else
|
} else
|
||||||
return FALSE;
|
return FALSE;
|
||||||
|
@ -16,6 +16,8 @@
|
|||||||
|
|
||||||
<h2>Yap-5.1.2:</h2>
|
<h2>Yap-5.1.2:</h2>
|
||||||
<ul>
|
<ul>
|
||||||
|
<li> NEW: unify_with_occurs_check/2 was broken with extensions (obs from Aline Paes).</li>
|
||||||
|
<li> NEW: stack_dump/0 from Trevor.</li>
|
||||||
<li> NEW: with_mutex/2.</li>
|
<li> NEW: with_mutex/2.</li>
|
||||||
<li> NEW: call_cleanup/2 and call_cleanup/3 at the request of Paulo
|
<li> NEW: call_cleanup/2 and call_cleanup/3 at the request of Paulo
|
||||||
Moura and Christian.</li>
|
Moura and Christian.</li>
|
||||||
|
Reference in New Issue
Block a user