diff options
Diffstat (limited to 'module/vcomponent/recurrence')
| -rw-r--r-- | module/vcomponent/recurrence/generate.scm | 1 | ||||
| -rw-r--r-- | module/vcomponent/recurrence/parse.scm | 3 |
2 files changed, 2 insertions, 2 deletions
diff --git a/module/vcomponent/recurrence/generate.scm b/module/vcomponent/recurrence/generate.scm index 91cd5ee2..acc45b33 100644 --- a/module/vcomponent/recurrence/generate.scm +++ b/module/vcomponent/recurrence/generate.scm @@ -287,7 +287,6 @@ [(BYMONTH) (memv (month d) values)] [(BYMONTHDAY) (memv (day d) (map (month-mod d) values))] [(BYYEARDAY) (memv (year-day d) values)] - ;; TODO special cases? [(BYDAY) (memv (week-day d) (map cdr values))] [(BYHOUR) (memv (hour t) values)] [(BYMINUTE) (memv (minute t) values)] diff --git a/module/vcomponent/recurrence/parse.scm b/module/vcomponent/recurrence/parse.scm index 1c611890..3df5cc25 100644 --- a/module/vcomponent/recurrence/parse.scm +++ b/module/vcomponent/recurrence/parse.scm @@ -85,7 +85,8 @@ (num (string->number val)) (nums (map string->number (string-split val #\,)))) - ;; TODO I think it's an error to give BYHOUR and under for dates which aren't datetimes + ;; It's an error to give BYHOUR and smaller for pure dates. + ;; 3.3.10. p 41 (quick-case (string->symbol key) (UNTIL (set (until o) date)) |