summaryrefslogtreecommitdiff
path: root/email
diff options
context:
space:
mode:
Diffstat (limited to 'email')
-rw-r--r--email/utils.scm8
1 files changed, 8 insertions, 0 deletions
diff --git a/email/utils.scm b/email/utils.scm
index 984f07e..97c1b5a 100644
--- a/email/utils.scm
+++ b/email/utils.scm
@@ -35,6 +35,14 @@
acons*
alist-combine))
+(define-syntax-rule (not-end-let (var expr) body ...)
+ "Bind result of EXPR to VAR. If VAR is an end-of-file object, return
+it. Else, execute BODY."
+ (let ((var expr))
+ (if (eof-object? var)
+ var
+ (begin body ...))))
+
(define (read-objects read-proc port)
"Read all objects using READ-PROC from PORT and return them as a
list."