Implement READ-LINES.

diff --git a/v7/src/imail/imail-util.scm b/v7/src/imail/imail-util.scm
index a45a96039b785a325065f3b47f3e2dc020a620af..f0d76fbd683d49c844e52b12548ead1c9decfd87 100644 (file)
--- 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))
       ""))
 \f
+(define (read-lines port)
+  (source->list (lambda () (read-line port))))
+
 (define (read-header-lines port)
   (source->list
    (lambda ()