bugfix incorrect min-date handling

This commit is contained in:
Christopher Lam 2018-01-03 23:21:58 +11:00
parent ee8f9053e8
commit a47f2a0465

View File

@ -155,7 +155,7 @@
(list min-date max-date dates))) (list min-date max-date dates)))
(define (category-report-dates-accumulate dates) (define (category-report-dates-accumulate dates)
(let* ((min-date 0) ; fixme. (let* ((min-date (decdate64 (car (list-min-max dates <)) DayDelta))
(max-date (cdr (list-min-max dates <))) (max-date (cdr (list-min-max dates <)))
(datepairs (reverse! (cdr (fold (lambda (next acc) (datepairs (reverse! (cdr (fold (lambda (next acc)
(let ((prev (car acc)) (let ((prev (car acc))