Don't unread #f as if it were a character.
authorChris Hanson <org/chris-hanson/cph>
Sat, 20 Jul 2019 02:08:00 +0000 (22:08 -0400)
committerChris Hanson <org/chris-hanson/cph>
Sat, 20 Jul 2019 02:08:51 +0000 (22:08 -0400)
src/runtime/generic-io.scm

index 6052dfa31c97a6b532798e31529af357b544d054..827d15905abb9cbe2eca55b5a94dfeaccfc9af6e 100644 (file)
@@ -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