diff options
-rw-r--r-- | module/datetime/util.scm | 4 |
1 files changed, 4 insertions, 0 deletions
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)) |