diff options
| -rw-r--r-- | srfi/srfi-41/util.scm | 5 |
1 files changed, 5 insertions, 0 deletions
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))) |