From 6b600d3ee57f2b6ad4eda1e020d207cbfc1a817f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 22 Apr 2019 18:33:32 +0200 Subject: Made multi day events appear in HTML. --- module/srfi/srfi-41/util.scm | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'module/srfi/srfi-41/util.scm') diff --git a/module/srfi/srfi-41/util.scm b/module/srfi/srfi-41/util.scm index 2492d088..56c50ce9 100644 --- a/module/srfi/srfi-41/util.scm +++ b/module/srfi/srfi-41/util.scm @@ -26,6 +26,17 @@ proc (stream-drop-while (negate proc) stream))) +(define-public (filter-sorted-stream* pred? keep-remaining? stream) + (cond [(stream-null? stream) stream-null] + [(keep-remaining? (stream-car stream)) stream] + [(pred? (stream-car stream)) + (stream-cons (stream-car stream) + (filter-sorted-stream* + pred? keep-remaining? + (stream-cdr stream)))] + [else (filter-sorted-stream* pred? keep-remaining? + (stream-cdr stream))])) + (define-public (stream-find pred stream) (cond ((stream-null? stream) #f) ((pred (stream-car stream)) (stream-car stream)) -- cgit v1.2.3