From 75fcbbe237200785da9deab91d48870000806bf2 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 7 Oct 2017 17:41:40 -0700
Subject: [PATCH] Eliminate no-longer-used conditional.

---
 src/runtime/genio.scm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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)
-- 
2.25.1