projects
/
mit-scheme.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
fc4113b
)
Don't unread #f as if it were a character.
author
Chris Hanson
<org/chris-hanson/cph>
Sat, 20 Jul 2019 02:08:00 +0000
(22:08 -0400)
committer
Chris Hanson
<org/chris-hanson/cph>
Sat, 20 Jul 2019 02:08:51 +0000
(22:08 -0400)
src/runtime/generic-io.scm
patch
|
blob
|
history
diff --git
a/src/runtime/generic-io.scm
b/src/runtime/generic-io.scm
index 6052dfa31c97a6b532798e31529af357b544d054..827d15905abb9cbe2eca55b5a94dfeaccfc9af6e 100644
(file)
--- 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