summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--email/utils.scm8
1 files changed, 5 insertions, 3 deletions
diff --git a/email/utils.scm b/email/utils.scm
index 8344c6b..536dc52 100644
--- a/email/utils.scm
+++ b/email/utils.scm
@@ -43,9 +43,11 @@ list."
(cons x (read-objects read-proc port)))))
(define* (read-while port read-proc pred)
- "Read from PORT using READ-PROC while PRED returns #t. READ-PROC is
-invoked with the input port as argument. PRED is invoked with each
-string returned by READ-PROC as argument."
+ "Read from PORT using READ-PROC while PRED returns #t and the
+end-of-file has not been reached. READ-PROC is invoked with the input
+port as argument. PRED is invoked with each string returned by
+READ-PROC as argument. The string for which PRED returns #f is ungot
+back into PORT."
(define (read-while-loop output)
(let ((x (read-proc port)))
(cond