FIX make spans the correct length
This commit is contained in:
parent
8c4ba190b7
commit
843013884b
|
@ -232,7 +232,7 @@ relative shift in days from ABS."
|
||||||
acc)
|
acc)
|
||||||
`((,abs . ,offset) ,@acc)))))
|
`((,abs . ,offset) ,@acc)))))
|
||||||
(->> (-reduce-from #'to-interval nil date-offsets)
|
(->> (-reduce-from #'to-interval nil date-offsets)
|
||||||
(--map `(,(car it) ,(+ 1 (car it) (cdr it)))))))
|
(--map `(,(car it) ,(+ (car it) (cdr it)))))))
|
||||||
|
|
||||||
;; date <-> quarter
|
;; date <-> quarter
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue