diff options
author | Thomas White <taw@physics.org> | 2023-04-11 21:17:49 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2023-04-11 21:18:04 +0200 |
commit | 5260b83022afbe7b0c4a37f429ee2f27b194ebf4 (patch) | |
tree | 6fcb877f42cf11be30b819a7b0ce7a02201c89b3 /guile/starlet/utils.scm | |
parent | 24727850cd8f1a96f5f06c2b293f7cd418644b9f (diff) |
Get rid of 'categorize'
Good riddance. Here's to proper argument handling.
Diffstat (limited to 'guile/starlet/utils.scm')
-rw-r--r-- | guile/starlet/utils.scm | 16 |
1 files changed, 0 insertions, 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))) |