diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-12 23:11:39 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-12 23:16:51 +0200 |
commit | 787972d91b0eb51f5851ecbc4d7028d8e09ec327 (patch) | |
tree | 079f3d0149197fcadd4c3961597e329e2284fa77 /module/vcomponent/recurrence | |
parent | Add benchmarking script. (diff) | |
download | calp-787972d91b0eb51f5851ecbc4d7028d8e09ec327.tar.gz calp-787972d91b0eb51f5851ecbc4d7028d8e09ec327.tar.xz |
Resolve some TODO's.
Diffstat (limited to '')
-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)) |