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;
|
s = RepAtom(AtomOfTerm(t))->StrOfAE;
|
||||||
if ((NewT = get_num(s)) == TermNil) {
|
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 (FALSE);
|
||||||
}
|
}
|
||||||
return (Yap_unify(ARG1, NewT));
|
return (Yap_unify(ARG1, NewT));
|
||||||
|
Reference in New Issue
Block a user