From e99ee450d541ed796ba564ce765ddee4d0017c60 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 21 Mar 2019 21:16:20 +0100
Subject: Add filter-sorted-stream.

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

(limited to 'srfi')

diff --git a/srfi/srfi-41/util.scm b/srfi/srfi-41/util.scm
index ed378ea4..5bef95cb 100644
--- a/srfi/srfi-41/util.scm
+++ b/srfi/srfi-41/util.scm
@@ -22,3 +22,8 @@
           (stream-cons m (interleave-streams < (cons ms other)))))))
 
 ;;; Varför är allting så långsamt‽‽‽‽‽‽‽‽
+
+(define-public (filter-sorted-stream proc stream)
+  (stream-take-while
+   proc (stream-drop-while
+         (negate proc) stream)))
-- 
cgit v1.2.3