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

typos

Browse Source
This commit is contained in:
Vitor Santos Costa 2017-10-18 18:23:09 +01:00
parent 861f185ec6
commit f12d98a38c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
os/charsio.c
View File

@ -1104,7 +1104,7 @@ static Int peek_char(USES_REGS1) {
if (sno < 0) if (sno < 0)
return false; return false;
Int ch = Yap_peek(sno); ch = Yap_peek(sno);
if (ch < 0) { if (ch < 0) {
UNLOCK(GLOBAL_Stream[sno].streamlock); UNLOCK(GLOBAL_Stream[sno].streamlock);
return Yap_unify_constant(ARG2, MkAtomTerm(AtomEof)); return Yap_unify_constant(ARG2, MkAtomTerm(AtomEof));
@ -1115,7 +1115,7 @@ static Int peek_char(USES_REGS1) {
return false; return false;
} }
sinp[off] = '\0'; sinp[off] = '\0';
printf("%s\n", simp) return Yap_unify_constant( return Yap_unify_constant(
ARG2, MkAtomTerm(Yap_ULookupAtom(sinp))); ARG2, MkAtomTerm(Yap_ULookupAtom(sinp)));
} }