Eliminate no-longer-used conditional.
authorChris Hanson <org/chris-hanson/cph>
Sun, 8 Oct 2017 00:41:40 +0000 (17:41 -0700)
committerChris Hanson <org/chris-hanson/cph>
Sun, 8 Oct 2017 00:41:40 +0000 (17:41 -0700)
src/runtime/genio.scm

index e54993a24c6952bbe837b35f36588ca503b89a3e..aa965651e3baa57e7c136c8f3cfb8a60fc195112 100644 (file)
@@ -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)