diff options
| author | Arun Isaac | 2020-05-25 05:33:07 +0530 |
|---|---|---|
| committer | Arun Isaac | 2020-05-25 05:44:15 +0530 |
| commit | 4e76a0aeb91348843d779b47372563e977132a29 (patch) | |
| tree | 9c44db8811eec73a70ebe1b7e9161ca4cbcdc043 /email/utils.scm | |
| parent | 8a1b7f6b5534bc02692f7a02d0dc287dc46ca4c1 (diff) | |
| download | guile-email-4e76a0aeb91348843d779b47372563e977132a29.tar.gz guile-email-4e76a0aeb91348843d779b47372563e977132a29.tar.lz guile-email-4e76a0aeb91348843d779b47372563e977132a29.zip | |
utils: Introduce the not-end-let utility.
* email/utils.scm (not-end-let): New macro.
* .dir-locals.el (scheme-mode): Indent not-end-let correctly.
Diffstat (limited to 'email/utils.scm')
| -rw-r--r-- | email/utils.scm | 8 |
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." |