diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-08 13:14:34 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-08 13:14:34 +0100 |
| commit | e7c471cb50bf92debc6e28ef5e45d0c5e4b3da3c (patch) | |
| tree | c6f59fc9464d5c9ea704c1c05a6b6f57be13bd2f /util.scm | |
| parent | Got DAILY repeating event! (diff) | |
| download | calp-e7c471cb50bf92debc6e28ef5e45d0c5e4b3da3c.tar.gz calp-e7c471cb50bf92debc6e28ef5e45d0c5e4b3da3c.tar.xz | |
Made DTSTART have <time> instead of <date> type.
Diffstat (limited to 'util.scm')
| -rw-r--r-- | util.scm | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -1,6 +1,7 @@ (define-module (util) #:use-module (srfi srfi-1) - #:export (destructure-lambda let-multi fold-lists catch-let) + #:export (destructure-lambda let-multi fold-lists catch-let + for-each-in) ) (define-public upstring->symbol (compose string->symbol string-upcase)) @@ -43,3 +44,6 @@ ((type) (apply handler err args)) ... (else (format #t "Unhandled error type ~a, rethrowing ~%" err) (apply throw err args)))))))) + +(define-syntax-rule (for-each-in lst proc) + (for-each proc lst)) |