From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 4 Nov 1997 09:27:31 +0000 (+0000)
Subject: Eliminate old and incompatible definition of READ-LINE.
X-Git-Tag: 20090517-FFI~4944
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4b0690828cff5e5b5642c9ca419dea8ac2ec29e0;p=mit-scheme.git

Eliminate old and incompatible definition of READ-LINE.
---

diff --git a/v7/src/edwin/utils.scm b/v7/src/edwin/utils.scm
index b4f8caa44..f609f0cb8 100644
--- a/v7/src/edwin/utils.scm
+++ b/v7/src/edwin/utils.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: utils.scm,v 1.40 1996/05/11 08:38:11 cph Exp $
+;;;	$Id: utils.scm,v 1.41 1997/11/04 09:27:31 cph Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989-96 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989-97 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -254,12 +254,6 @@
 (define (char-base char)
   (make-char (char-code char) 0))
 
-(define (read-line #!optional port)
-  (read-string char-set:return
-	       (if (default-object? port)
-		   (current-input-port)
-		   (guarantee-input-port port))))
-
 (define (y-or-n? . strings)
   (define (loop)
     (let ((char (char-upcase (read-char))))