fixed the way syntax errors are sent out in number_atom
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@800 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
5cfd4e9727
commit
af6ac94451
@ -1051,7 +1051,7 @@ p_number_atom(void)
|
||||
}
|
||||
s = RepAtom(AtomOfTerm(t))->StrOfAE;
|
||||
if ((NewT = get_num(s)) == TermNil) {
|
||||
Yap_Error(SYNTAX_ERROR, Deref(ARG2), "number_atom/2", String);
|
||||
Yap_Error(SYNTAX_ERROR, gen_syntax_error("number_atom"), "while scanning %s", s);
|
||||
return (FALSE);
|
||||
}
|
||||
return (Yap_unify(ARG1, NewT));
|
||||
|
Reference in New Issue
Block a user