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

fix YAP_AttOfVar

Browse Source 
beautify get atts
This commit is contained in:
Vitor Santos Costa
2012-05-21 17:24:40 +01:00
parent f261a3fd2f
commit 9e3d16022a
2 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
C/c_interface.c
View File

@@ -3762,9 +3762,10 @@ YAP_AttsOfVar(Term t)
t = Deref(t);
if (!IsVarTerm(t))
return TermNil;
if (IsAttVar(VarOfTerm(t)))
if(!IsAttVar(VarOfTerm(t)))
return TermNil;
attv = (attvar_record *)VarOfTerm(t);
attv = RepAttVar(VarOfTerm(t));
Yap_DebugPlWrite(attv->Atts);
return attv->Atts;
}