From 4b9289c912d30a290052fd692ba155ac46447b2e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 22 Mar 2020 20:05:04 +0100
Subject: HTML small cal table now works with better intervals.

---
 module/srfi/srfi-41/util.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'module/srfi')

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))
-- 
cgit v1.2.3