From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 20 Jul 2019 02:08:00 +0000 (-0400)
Subject: Don't unread #f as if it were a character.
X-Git-Tag: mit-scheme-pucked-10.1.12~7^2~6
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fc7685b0037b724e230cd8169c962e372f56e104;p=mit-scheme.git

Don't unread #f as if it were a character.
---

diff --git a/src/runtime/generic-io.scm b/src/runtime/generic-io.scm
index 16f3560a7..7638b74af 100644
--- a/src/runtime/generic-io.scm
+++ b/src/runtime/generic-io.scm
@@ -1450,7 +1450,6 @@ USA.
 	     ((#\u+000A)
 	      #\newline)
 	     ((#f)
-	      (unread-decoded-char ib c1)
 	      (unread-decoded-char ib c0)
 	      #f)
 	     (else
@@ -1480,7 +1479,6 @@ USA.
 	     ((#\u+000A)
 	      #\newline)
 	     ((#f)
-	      (unread-decoded-char ib c1)
 	      (unread-decoded-char ib c0)
 	      #f)
 	     (else
@@ -1502,7 +1500,6 @@ USA.
 	     ((#\u+000A #\u+0085)
 	      #\newline)
 	     ((#f)
-	      (unread-decoded-char ib c1)
 	      (unread-decoded-char ib c0)
 	      #f)
 	     (else