diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-04 21:29:03 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-04 21:29:03 +0200 |
| commit | 3525de48273eb5fe5f8b112ba12976bb3888829e (patch) | |
| tree | 5c568d2306022f6257b5092235d22f21311b601e | |
| parent | Remove execute-flag from module/main.scm. (diff) | |
| download | calp-3525de48273eb5fe5f8b112ba12976bb3888829e.tar.gz calp-3525de48273eb5fe5f8b112ba12976bb3888829e.tar.xz | |
Tests run again.
| -rw-r--r-- | module/vcomponent/recurrence/parse.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/module/vcomponent/recurrence/parse.scm b/module/vcomponent/recurrence/parse.scm index c72ec367..1c611890 100644 --- a/module/vcomponent/recurrence/parse.scm +++ b/module/vcomponent/recurrence/parse.scm @@ -55,9 +55,12 @@ `((,key) (if (not ,guard) (begin (warning "RRULE guard failed for key ~a~% guard: ~a : ~s" - ,key ,guard (map (lambda (o) (if (procedure? o) - (procedure-name o) - o)) ,@guard)) + (quote ,key) + (quote ,guard) + (map (lambda (o) (if (procedure? o) + (procedure-name o) + o)) + (list ,@guard))) ,@else-clause) (begin ,@body)))) ((key body ...) |