From fa2e5c5a2aa65bfdedd58c9ca1b6f790e59c05df Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 19 May 2020 23:07:45 +0200 Subject: Add test for filter-sorted. --- module/util.scm | 2 -- 1 file changed, 2 deletions(-) (limited to 'module/util.scm') diff --git a/module/util.scm b/module/util.scm index 10e36d4e..617a2ea6 100644 --- a/module/util.scm +++ b/module/util.scm @@ -305,8 +305,6 @@ ;; 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 -- cgit v1.2.3