>From d888df47a7252714f28b63983ba9846bc885eae5 Mon Sep 17 00:00:00 2001
From: Evan Hanson <address@hidden>
Date: Thu, 31 Oct 2013 19:02:47 +1300
Subject: [PATCH 1/2] Remove unused procedure definition in extras' read-line

Signed-off-by: Peter Bex <address@hidden>
---
 extras.scm | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/extras.scm b/extras.scm
index 36b6bc9..bc61772 100644
--- a/extras.scm
+++ b/extras.scm
@@ -73,12 +73,6 @@
 
 (define read-line
   (let ()
-    (define (fixup str len)
-      (##sys#substring
-       str 0
-       (if (and (fx>= len 1) (char=? #\return (##core#inline "C_subchar" str (fx- len 1))))
-	   (fx- len 1)
-	   len) ) )
     (lambda args
       (let* ([parg (pair? args)]
 	     [p (if parg (car args) ##sys#standard-input)]
-- 
1.8.3.4