From 5260b83022afbe7b0c4a37f429ee2f27b194ebf4 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Tue, 11 Apr 2023 21:17:49 +0200
Subject: Get rid of 'categorize'

Good riddance.  Here's to proper argument handling.
---
 guile/starlet/utils.scm | 16 ----------------
 1 file changed, 16 deletions(-)

diff --git a/guile/starlet/utils.scm b/guile/starlet/utils.scm
index 4a2f0be..5542668 100644
--- a/guile/starlet/utils.scm
+++ b/guile/starlet/utils.scm
@@ -30,7 +30,6 @@
             flatten-sublists
             more-than-one
             hirestime
-            categorize
             lsb
             msb
             ensure-number
@@ -95,21 +94,6 @@
           1000000))))
 
 
-(define (categorize-rec predicates items so-far)
-  (if (nil? predicates)
-    (reverse (cons items so-far))
-    (receive
-      (selected-items remaining-items)
-      (partition (car predicates) items)
-      (categorize-rec (cdr predicates)
-                      remaining-items
-                      (cons selected-items so-far)))))
-
-
-(define (categorize items . predicates)
-  (apply values (categorize-rec predicates items '())))
-
-
 (define (msb val)
   (round-dmx (euclidean-quotient val 256)))
 
-- 
cgit v1.2.3