diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-04-10 00:48:08 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-04-10 00:48:08 +0200 |
| commit | 318db9d93bb27afa07e08912bfb662aff66e0efe (patch) | |
| tree | 5f7bf8fd28a93aaa33f90ed585e638aa0945a6a6 | |
| parent | Minor cleanups. (diff) | |
| download | calp-318db9d93bb27afa07e08912bfb662aff66e0efe.tar.gz calp-318db9d93bb27afa07e08912bfb662aff66e0efe.tar.xz | |
Fix BYDAY parse constraint.
| -rw-r--r-- | module/vcalendar/recurrence/parse.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/module/vcalendar/recurrence/parse.scm b/module/vcalendar/recurrence/parse.scm index 015bb578..ad8f06c3 100644 --- a/module/vcalendar/recurrence/parse.scm +++ b/module/vcalendar/recurrence/parse.scm @@ -100,8 +100,12 @@ (BYMINUTE (nums) (all-in n (<= 0 n 59))) (BYHOUR (nums) (all-in n (<= 0 n 23))) - (BYDAY (days) (lambda (p) (let* (((num . symb) p)) - (memv symb weekdays)))) + (BYDAY (days) + (lambda (p*) + (map (lambda (p) + (let* (((num . symb) p)) + (memv symb weekdays))) + p*))) (BYMONTHDAY (nums) (all-in n (<= -31 n 31) (!= n 0))) (BYYEARDAY (nums) (all-in n (<= -366 n 366) (!= n 0))) |