>From df00aab2399650c1c811bfda4332b1426f487a8d Mon Sep 17 00:00:00 2001 From: Evan Hanson 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