diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-18 23:30:54 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-18 23:30:54 +0100 |
commit | f6b50155e9945e9f5818cd727c5d17c1147eacf6 (patch) | |
tree | e458333c32e8d88aa08d3834552ee711782256d2 /module/datetime | |
parent | Handle non-utf summaries. (diff) | |
download | calp-f6b50155e9945e9f5818cd727c5d17c1147eacf6.tar.gz calp-f6b50155e9945e9f5818cd727c5d17c1147eacf6.tar.xz |
Add week-stream.
Diffstat (limited to '')
-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)) |