~ chicken-core (chicken-5) a6cdfd09d398476f89969a246e4d12c5dca6e3df

commit a6cdfd09d398476f89969a246e4d12c5dca6e3df
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Thu Oct 31 19:02:47 2013 +1300
Commit:     Moritz Heidkamp <moritz@twoticketsplease.de>
CommitDate: Sun Nov 3 18:18:38 2013 +0100

    Remove unused procedure definition in extras' read-line
    
    Signed-off-by: Peter Bex <peter.bex@xs4all.nl>

diff --git a/extras.scm b/extras.scm
index 36b6bc99..bc617724 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)]