From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 7 Jan 2000 23:09:03 +0000 (+0000)
Subject: Implement READ-LINES.
X-Git-Tag: 20090517-FFI~4370
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=60fd7650be49bb14e9aa63e81ededc1169236d51;p=mit-scheme.git

Implement READ-LINES.
---

diff --git a/v7/src/imail/imail-util.scm b/v7/src/imail/imail-util.scm
index a45a96039..f0d76fbd6 100644
--- a/v7/src/imail/imail-util.scm
+++ b/v7/src/imail/imail-util.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-util.scm,v 1.1 2000/01/04 22:51:15 cph Exp $
+;;; $Id: imail-util.scm,v 1.2 2000/01/07 23:09:03 cph Exp $
 ;;;
 ;;; Copyright (c) 1999 Massachusetts Institute of Technology
 ;;;
@@ -154,6 +154,9 @@
 	  (car tokens))
       ""))
 
+(define (read-lines port)
+  (source->list (lambda () (read-line port))))
+
 (define (read-header-lines port)
   (source->list
    (lambda ()