From ec6d16cffb6511ad06a5cd0ff40826e36cf3f523 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 13 Jun 2020 16:10:23 +0200 Subject: Fix normalization in (datetime util). --- module/vcomponent/recurrence/generate.scm | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'module/vcomponent/recurrence/generate.scm') diff --git a/module/vcomponent/recurrence/generate.scm b/module/vcomponent/recurrence/generate.scm index 5a4ef80b..53de1726 100644 --- a/module/vcomponent/recurrence/generate.scm +++ b/module/vcomponent/recurrence/generate.scm @@ -152,7 +152,7 @@ (concatenate (map (lambda (wday) (all-wday-in-month - wday (set (month d) value))) + wday (start-of-month (set (month d) value)))) (map cdr (byday rrule))))) ;; else @@ -168,9 +168,7 @@ 7))))] [(MONTHLY) - ;; TODO should there be a (start-of-month d) - ;; istead of juts d - (let* ((instances (all-wday-in-month value d))) + (let* ((instances (all-wday-in-month value (start-of-month d)))) (catch 'out-of-range (lambda () (cond [(eqv? #f offset) @@ -312,11 +310,11 @@ (limiters->predicate (all-limiters rrule)) date-stream))) -(define-stream (generate-posibilities rrule base-date) +(define-stream (generate-posibilities rrule start-date) (limit-recurrence-set rrule (extend-recurrence-set - rrule base-date))) + rrule start-date))) (define-stream (rrule-instances event) (define rrule (attr event 'RRULE)) -- cgit v1.2.3