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

fix bad bracket

This commit is contained in:
Vítor Santos Costa II 2010-03-26 16:16:05 +00:00
parent 50b380c2aa
commit 000f4524ea
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
C/stdpreds.c
View File

@ -1242,14 +1242,14 @@ p_atom_chars(void)
Yap_Error(TYPE_ERROR_CHARACTER,Head,"atom_chars/2"); Yap_Error(TYPE_ERROR_CHARACTER,Head,"atom_chars/2");
return(FALSE); return(FALSE);
} }
} t = TailOfTerm(t);
t = TailOfTerm(t); if (IsVarTerm(t)) {
if (IsVarTerm(t)) { Yap_Error(INSTANTIATION_ERROR,t,"atom_chars/2");
Yap_Error(INSTANTIATION_ERROR,t,"atom_chars/2"); return(FALSE);
return(FALSE); } else if (!IsPairTerm(t) && t != TermNil) {
} else if (!IsPairTerm(t) && t != TermNil) { Yap_Error(TYPE_ERROR_LIST, t, "atom_chars/2");
Yap_Error(TYPE_ERROR_LIST, t, "atom_chars/2"); return(FALSE);
return(FALSE); }
} }
} }
if (ws) { if (ws) {