exceptions

This commit is contained in:
Vítor Santos Costa
2016-03-29 01:57:55 +01:00
parent 2dae2363a3
commit 06e5371afd
4 changed files with 26 additions and 93 deletions

View File

@@ -163,7 +163,7 @@ INLINE_ONLY inline EXTERN Term MkCharTerm(Int c);
INLINE_ONLY inline EXTERN Term MkCharTerm(Int c) {
wchar_t cs[2];
if (c < 0)
return MkAtomTerm(AtomEof);
return TermEof;
cs[0] = c;
cs[1] = '\0';
return MkAtomTerm(Yap_LookupMaybeWideAtom(cs));