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 | |
| parent | 24727850cd8f1a96f5f06c2b293f7cd418644b9f (diff) | |
Get rid of 'categorize'
Good riddance. Here's to proper argument handling.
| -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))) |