Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-10 22:47:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

returning #<eof> for end of input on read-u8

Browse source
This commit is contained in:
Alex Shinn 2012-07-16 17:37:47 +09:00
parent 6de7d5621d
commit 582a3295d4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/chibi/io/port.c
View file

@ -366,7 +366,7 @@ sexp sexp_read_u8 (sexp ctx, sexp self, sexp in) {
} }
#endif #endif
if (c == '\n') sexp_port_line(in)++; if (c == '\n') sexp_port_line(in)++;
return sexp_make_fixnum(c); return (c==EOF) ? SEXP_EOF : sexp_make_fixnum(c);
} }
sexp sexp_peek_u8 (sexp ctx, sexp self, sexp in) { sexp sexp_peek_u8 (sexp ctx, sexp self, sexp in) {