fix broken semantics.
This commit is contained in:
parent
5312086b60
commit
e3e1bcaca8
@ -1372,7 +1372,7 @@ p_nb_getval( USES_REGS1 )
|
|||||||
if (!ge) {
|
if (!ge) {
|
||||||
Term t3 = Deref(ARG3);
|
Term t3 = Deref(ARG3);
|
||||||
if (IsVarTerm(t3))
|
if (IsVarTerm(t3))
|
||||||
return FALSE;
|
return TRUE; // weird stuff, but allows using an handler.
|
||||||
if (IsApplTerm(t3)) {
|
if (IsApplTerm(t3)) {
|
||||||
if (FunctorOfTerm(t3) == FunctorEq)
|
if (FunctorOfTerm(t3) == FunctorEq)
|
||||||
return Yap_unify( ArgOfTerm(1, t3) , ArgOfTerm(2, t3) );
|
return Yap_unify( ArgOfTerm(1, t3) , ArgOfTerm(2, t3) );
|
||||||
|
Reference in New Issue
Block a user