always deref arguments to built-ins.
This commit is contained in:
parent
74c136b986
commit
a1022f8237
@ -794,7 +794,9 @@ a_eq(Term t1, Term t2)
|
|||||||
{
|
{
|
||||||
CACHE_REGS
|
CACHE_REGS
|
||||||
/* A =:= B */
|
/* A =:= B */
|
||||||
int out;
|
Int out;
|
||||||
|
t1 = Deref(t1);
|
||||||
|
t2 = Deref(t2);
|
||||||
|
|
||||||
if (IsVarTerm(t1)) {
|
if (IsVarTerm(t1)) {
|
||||||
Yap_Error(INSTANTIATION_ERROR, t1, "=:=/2");
|
Yap_Error(INSTANTIATION_ERROR, t1, "=:=/2");
|
||||||
|
Reference in New Issue
Block a user