diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-22 20:05:04 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-22 20:05:04 +0100 |
| commit | 4b9289c912d30a290052fd692ba155ac46447b2e (patch) | |
| tree | 8634240e8afe73f6d52ca946dada656283669121 /module/srfi | |
| parent | Start work on week-by-week html. (diff) | |
| download | calp-4b9289c912d30a290052fd692ba155ac46447b2e.tar.gz calp-4b9289c912d30a290052fd692ba155ac46447b2e.tar.xz | |
HTML small cal table now works with better intervals.
Diffstat (limited to 'module/srfi')
| -rw-r--r-- | module/srfi/srfi-41/util.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/module/srfi/srfi-41/util.scm b/module/srfi/srfi-41/util.scm index 61db98d6..3101bc85 100644 --- a/module/srfi/srfi-41/util.scm +++ b/module/srfi/srfi-41/util.scm @@ -48,6 +48,8 @@ [else (filter-sorted-stream* pred? keep-remaining? (stream-cdr stream))])) +;; Finds the first element in stream satisfying pred. +;; Returns #f if nothing was found (define-public (stream-find pred stream) (cond ((stream-null? stream) #f) ((pred (stream-car stream)) (stream-car stream)) |