From f6b50155e9945e9f5818cd727c5d17c1147eacf6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Wed, 18 Mar 2020 23:30:54 +0100
Subject: Add week-stream.

---
 module/datetime/util.scm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'module')

diff --git a/module/datetime/util.scm b/module/datetime/util.scm
index 3da1d709..697b1806 100644
--- a/module/datetime/util.scm
+++ b/module/datetime/util.scm
@@ -23,6 +23,10 @@
   (stream-iterate (cut date+ <> #0-1-0)
                   start-day))
 
+(define-public (week-stream start-day)
+  (stream-iterate (cut date+ <> (date day: 7))
+                  start-day))
+
 (define-public (time-min a b)
   (if (time<? a b) a b))
 
-- 
cgit v1.2.3