fix bad bracket
This commit is contained in:
parent
50b380c2aa
commit
000f4524ea
16
C/stdpreds.c
16
C/stdpreds.c
@ -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) {
|
||||||
|
Reference in New Issue
Block a user