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

fix bad bracket

Browse Source
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

2
C/stdpreds.c
View File

@ -1242,7 +1242,6 @@ 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");
@ -1252,6 +1251,7 @@ p_atom_chars(void)
return(FALSE); return(FALSE);
} }
} }
}
if (ws) { if (ws) {
*ws++ = '\0'; *ws++ = '\0';
while ((at = Yap_LookupWideAtom((wchar_t *)String)) == NIL) { while ((at = Yap_LookupWideAtom((wchar_t *)String)) == NIL) {