>From df00aab2399650c1c811bfda4332b1426f487a8d 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

---
 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.7.10.4