diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-13 02:37:38 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-13 02:37:38 +0200 |
| commit | 7debc95e6907b6ce28bc53b938eb677a2b5c3d29 (patch) | |
| tree | 5e7c728208473b8e0f89d8729411149f0afeafaa /module/vcomponent/recurrence/generate.scm | |
| parent | Fix unless-clauses in make-extenders. (diff) | |
| download | calp-7debc95e6907b6ce28bc53b938eb677a2b5c3d29.tar.gz calp-7debc95e6907b6ce28bc53b938eb677a2b5c3d29.tar.xz | |
Which lead to some other bugs needing fixing.
Diffstat (limited to '')
| -rw-r--r-- | module/vcomponent/recurrence/generate.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/module/vcomponent/recurrence/generate.scm b/module/vcomponent/recurrence/generate.scm index 0b49f96b..db612e38 100644 --- a/module/vcomponent/recurrence/generate.scm +++ b/module/vcomponent/recurrence/generate.scm @@ -22,7 +22,7 @@ (define ((con x) y) (cons x y)) -(eval-when (expand compile eval) +(eval-when (expand load compile eval) (define (stx->bystx symbol str-transformer) (->> symbol symbol->string @@ -157,6 +157,8 @@ 7))))] [(MONTHLY) + ;; TODO should there be a (start-of-month d) + ;; istead of juts d (let* ((instances (all-wday-in-month value d))) (catch 'out-of-range (lambda () @@ -182,9 +184,9 @@ ;; turns it into a limiter [(or (byyearday rrule) (bymonthday rrule)) - dt] + dt] - ;; this leads to duplicates in the output + ;; TODO this leads to duplicates in the output [(or (byweekno rrule) (bymonth rrule)) ;; Handled under BYWEEKNO & BYMONTH respectively dt] @@ -229,7 +231,6 @@ (case (freq rr) [(YEARLY) (datetime date: (date year: (interval rr)))] [(MONTHLY) (datetime date: (date month: (interval rr)))] - ;; please say that a week has always seven days... [(WEEKLY) (datetime date: (date day: (* 7 (interval rr))))] [(DAILY) (datetime date: (date day: (interval rr)))] [(HOURLY) (datetime time: (time hour: (interval rr)))] |