diff options
| author |  Peter McGoron
| 2025-02-16 22:02:46 -0500 |
|---|---|---|
| committer | Peter McGoron
| 2025-02-16 22:02:46 -0500 |
| commit | 52f196f3c073d9e21ef39dae781eee910d30402c (patch) | |
| tree | f5d991f31249ce3a5227be0b234b0f82052a9157 /mcgoron | |
| parent | CHICKEN bug? Definition of `%insert` in the test for `internal` was (diff) | |
add set-contains? test, remove NaNs because they cannot be used in the default comparator
Diffstat (limited to 'mcgoron')
| -rw-r--r-- | mcgoron/weight-balanced-trees/srfi/113/sets.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/mcgoron/weight-balanced-trees/srfi/113/sets.scm b/mcgoron/weight-balanced-trees/srfi/113/sets.scm index 5b456b1..bc6c7bd 100644 --- a/mcgoron/weight-balanced-trees/srfi/113/sets.scm +++ b/mcgoron/weight-balanced-trees/srfi/113/sets.scm @@ -46,6 +46,7 @@ (define (set-contains? set element) (let ((found? #t)) (search (set-element-comparator set) + element (get-node set) (lambda () (set! found? #f))) found?)) |