From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 8 Oct 2017 00:41:40 +0000 (-0700)
Subject: Eliminate no-longer-used conditional.
X-Git-Tag: mit-scheme-pucked-9.2.12~14^2~19
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=75fcbbe237200785da9deab91d48870000806bf2;p=mit-scheme.git

Eliminate no-longer-used conditional.
---

diff --git a/src/runtime/genio.scm b/src/runtime/genio.scm
index e54993a24..aa965651e 100644
--- 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)