From 3b490389470c977be372a943ccc03bfb1b8ae25f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 24 Mar 2009 18:38:18 +0000 Subject: [PATCH] better eof handling in zo-parse svn: r14252 --- collects/compiler/zo-parse.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/compiler/zo-parse.ss b/collects/compiler/zo-parse.ss index 49e6ccd3ae..b4d4375997 100644 --- a/collects/compiler/zo-parse.ss +++ b/collects/compiler/zo-parse.ss @@ -927,7 +927,7 @@ (define rst (read-bytes size* port)) - (unless (eof-object? (read port)) + (unless (eof-object? (read-byte port)) (error 'not-end)) (unless (= size* (bytes-length rst))