diff options
| -rw-r--r-- | email/utils.scm | 8 |
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 |