diff options
-rw-r--r-- | module/output/html.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index fbc4728a..bb01b6cd 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -401,7 +401,9 @@ (with-output-to-file fname (lambda () (html-generate calendars events start-date end-date render-calendar))))]) (let ((ms (month-stream start-date))) - (stream-take - count (stream-zip - ms (stream-map (lambda (d) (date- d (date day: 1))) ; last in month - (stream-cdr ms))))))) + (with-streams + (take count + (zip ms + (map (cut date- <> (date day: 1)) ; last in month + (cdr ms)))))))) + |