From 60fd7650be49bb14e9aa63e81ededc1169236d51 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 7 Jan 2000 23:09:03 +0000
Subject: [PATCH] Implement READ-LINES.

---
 v7/src/imail/imail-util.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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 ()
-- 
2.25.1