diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-23 11:54:48 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-23 11:54:53 +0200 |
| commit | e0fdf7a4716e656510331d819df84b34c06773d7 (patch) | |
| tree | 053c3745e857e70257c64ff2f824337eaa33980d | |
| parent | Improve error reporting on recurrence parse. (diff) | |
| download | calp-e0fdf7a4716e656510331d819df84b34c06773d7.tar.gz calp-e0fdf7a4716e656510331d819df84b34c06773d7.tar.xz | |
Recurrence rule WKST properly parsed again.
| -rw-r--r-- | module/vcomponent/recurrence/parse.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/vcomponent/recurrence/parse.scm b/module/vcomponent/recurrence/parse.scm index a4f86942..36026899 100644 --- a/module/vcomponent/recurrence/parse.scm +++ b/module/vcomponent/recurrence/parse.scm @@ -82,6 +82,7 @@ (let-lazy ((symb (string->symbol val)) (date (datetime-parser val)) + (day (rfc->datetime-weekday (string->symbol val))) (days (map parse-day-spec (string-split val #\,))) (num (string->number val)) (nums (map string->number (string-split val #\,)))) @@ -94,7 +95,7 @@ (INTERVAL (<= 0 num) => (set (interval o) num)) (FREQ (memv symb intervals) => (set (freq o) symb)) - (WKST (memv symb weekdays) => (set (wkst o) (cdar days))) + (WKST (memv day weekdays) => (set (wkst o) day)) ;; Always positive (BYSECOND (every (lambda (n) (<= 0 n 60)) nums) => (set (bysecond o) nums)) |