From 23241decd1fed8ce19d158987c44b97d24312e41 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 20 Feb 2007 01:41:05 +0000
Subject: [PATCH] fix char-ready? to not block when only part of a character is
 ready

svn: r5639
---
 src/mzscheme/src/port.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/port.c b/src/mzscheme/src/port.c
index 248732ebf3..56f1fde720 100644
--- a/src/mzscheme/src/port.c
+++ b/src/mzscheme/src/port.c
@@ -2763,7 +2763,7 @@ scheme_char_ready (Scheme_Object *port)
   if (!scheme_byte_ready(port))
     return 0;
 
-  do_peekc_skip(port, scheme_make_integer(0), 0, &unavail);
+  do_peekc_skip(port, scheme_make_integer(0), 2, &unavail);
   
   return !unavail;
 }