diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-25 13:54:21 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-25 13:54:21 +0100 |
commit | 86ae14bfadb987b1a2ce6039d41683e48f8f6e5b (patch) | |
tree | f997b9dedaadf94b2173f4b84d096340448f61e4 /module/util.scm | |
parent | Update make-vcomponent to allow VIRTUAL components. (diff) | |
download | calp-86ae14bfadb987b1a2ce6039d41683e48f8f6e5b.tar.gz calp-86ae14bfadb987b1a2ce6039d41683e48f8f6e5b.tar.xz |
Replace one filter.
Diffstat (limited to 'module/util.scm')
-rw-r--r-- | module/util.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/module/util.scm b/module/util.scm index 6f1b955a..f60986ed 100644 --- a/module/util.scm +++ b/module/util.scm @@ -154,6 +154,8 @@ ;; seeds: (car items) '()))) +;; TODO This might be utterly broken, do some real tests on it +;; (and then run equivalent tests on the stream variant) (define-public (filter-sorted proc list) (take-while proc (drop-while |