diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-21 21:16:20 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-21 21:16:20 +0100 |
| commit | e99ee450d541ed796ba564ce765ddee4d0017c60 (patch) | |
| tree | 595fe40cb970abc2d63da3238b089f4f56beced1 /srfi | |
| parent | Add ./ to makefile. (diff) | |
| download | calp-e99ee450d541ed796ba564ce765ddee4d0017c60.tar.gz calp-e99ee450d541ed796ba564ce765ddee4d0017c60.tar.xz | |
Add filter-sorted-stream.
Diffstat (limited to 'srfi')
| -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))) |