From 582a3295d4f9f81d04ef74a406cd4137f6f30630 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 16 Jul 2012 17:37:47 +0900 Subject: [PATCH] returning # for end of input on read-u8 --- lib/chibi/io/port.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/chibi/io/port.c b/lib/chibi/io/port.c index 53b57f19..0079df8e 100644 --- a/lib/chibi/io/port.c +++ b/lib/chibi/io/port.c @@ -366,7 +366,7 @@ sexp sexp_read_u8 (sexp ctx, sexp self, sexp in) { } #endif 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) {