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:
8b43892
)
Eliminate no-longer-used conditional.
author
Chris Hanson
<org/chris-hanson/cph>
Sun, 8 Oct 2017 00:41:40 +0000
(17:41 -0700)
committer
Chris Hanson
<org/chris-hanson/cph>
Sun, 8 Oct 2017 00:41:40 +0000
(17:41 -0700)
src/runtime/genio.scm
patch
|
blob
|
history
diff --git
a/src/runtime/genio.scm
b/src/runtime/genio.scm
index e54993a24c6952bbe837b35f36588ca503b89a3e..aa965651e3baa57e7c136c8f3cfb8a60fc195112 100644
(file)
--- a/
src/runtime/genio.scm
+++ b/
src/runtime/genio.scm
@@
-219,9
+219,7
@@
USA.
char)
(let ((char ((input-buffer-normalizer ib) ib)))
(if (eq? char #\newline)
- (let ((line (input-buffer-line ib)))
- (if line
- (set-input-buffer-line! ib (fix:+ line 1)))))
+ (set-input-buffer-line! ib (fix:+ (input-buffer-line ib) 1)))
char)))))
(define (generic-io/unread-char port char)