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-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=520f0f3422a03288a17421d5d531de425213c564;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 6052dfa31..827d15905 100644
--- a/src/runtime/generic-io.scm
+++ b/src/runtime/generic-io.scm
@@ -1445,7 +1445,6 @@ USA.
 	     ((#\u+000A)
 	      #\newline)
 	     ((#f)
-	      (unread-decoded-char ib c1)
 	      (unread-decoded-char ib c0)
 	      #f)
 	     (else
@@ -1475,7 +1474,6 @@ USA.
 	     ((#\u+000A)
 	      #\newline)
 	     ((#f)
-	      (unread-decoded-char ib c1)
 	      (unread-decoded-char ib c0)
 	      #f)
 	     (else
@@ -1497,7 +1495,6 @@ USA.
 	     ((#\u+000A #\u+0085)
 	      #\newline)
 	     ((#f)
-	      (unread-decoded-char ib c1)
 	      (unread-decoded-char ib c0)
 	      #f)
 	     (else