diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

use IsAttVar

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-03-08 09:19:35 +00:00
parent e992b0dcf0
commit 99460df195
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
C/c_interface.c
View File

@ -2940,7 +2940,7 @@ YAP_IsAttVar(Term t)
t = Deref(t);
if (!IsVarTerm(t))
return FALSE;
return (VarOfTerm(t) < H0);
return IsAttVar(VarOfTerm(t));
}
X_API Term
@ -2951,7 +2951,7 @@ YAP_AttsOfVar(Term t)
t = Deref(t);
if (!IsVarTerm(t))
return TermNil;
if (VarOfTerm(t) >= H0)
if (IsAttVar(VarOfTerm(t)))
return TermNil;
attv = (attvar_record *)VarOfTerm(t);
return attv->Atts;
@ -2965,7 +2965,7 @@ YAP_TermHash(Term t)
t = Deref(t);
if (!IsVarTerm(t))
return TermNil;
if (VarOfTerm(t) >= H0)
if (IsAttVar(VarOfTerm(t)))
return TermNil;
attv = (attvar_record *)VarOfTerm(t);
return attv->Atts;