From 318db9d93bb27afa07e08912bfb662aff66e0efe Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 10 Apr 2019 00:48:08 +0200 Subject: Fix BYDAY parse constraint. --- module/vcalendar/recurrence/parse.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'module/vcalendar/recurrence/parse.scm') 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))) -- cgit v1.2.3