diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-04-03 22:53:09 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-04-03 22:53:09 +0200 |
commit | 91a448bc4aae4072caec85a5eda05abbe1b69303 (patch) | |
tree | 9cd0a8e050a400261ee8cbd8028cf9fadfa88176 /module/vcalendar | |
parent | Add stream-find. (diff) | |
download | calp-91a448bc4aae4072caec85a5eda05abbe1b69303.tar.gz calp-91a448bc4aae4072caec85a5eda05abbe1b69303.tar.xz |
Whitespace fix.
Diffstat (limited to 'module/vcalendar')
-rw-r--r-- | module/vcalendar/recurrence/parse.scm | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/module/vcalendar/recurrence/parse.scm b/module/vcalendar/recurrence/parse.scm index 95d8092e..9f933120 100644 --- a/module/vcalendar/recurrence/parse.scm +++ b/module/vcalendar/recurrence/parse.scm @@ -13,17 +13,17 @@ (define (parse-recurrence-rule str) "Takes a RECUR value (string), and returuns a <recur-rule> object" - (catch #t - (lambda () (%build-recur-rules str)) - (lambda (err cont obj key val . rest) - (let ((fmt (case err - ((unfulfilled-constraint) - "ERR ~a [~a] doesn't fulfill constraint of type [~a], ignoring~%") - ((invalid-value) - "ERR ~a [~a] for key [~a], ignoring.~%") - (else "~a ~a ~a")))) - (format #t fmt err val key)) - (cont obj)))) + (catch #t + (lambda () (%build-recur-rules str)) + (lambda (err cont obj key val . rest) + (let ((fmt (case err + ((unfulfilled-constraint) + "ERR ~a [~a] doesn't fulfill constraint of type [~a], ignoring~%") + ((invalid-value) + "ERR ~a [~a] for key [~a], ignoring.~%") + (else "~a ~a ~a")))) + (format #t fmt err val key)) + (cont obj)))) (eval-when (expand) (define ((handle-case stx obj) key val proc) |