diff options
| author |  Peter McGoron
| 2025-02-17 20:17:09 -0500 |
|---|---|---|
| committer | Peter McGoron
| 2025-02-17 20:17:09 -0500 |
| commit | d4f0bec92215219ec9374d6877c680399184bb06 (patch) | |
| tree | 1def887d482db8bccf3d364bb209b31a6da6f4b9 /mcgoron | |
| parent | add superset tests (diff) | |
more set-intersection tests
Diffstat (limited to 'mcgoron')
| -rw-r--r-- | mcgoron/weight-balanced-trees/srfi/113/sets.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/mcgoron/weight-balanced-trees/srfi/113/sets.scm b/mcgoron/weight-balanced-trees/srfi/113/sets.scm index c9085cf..b65b56e 100644 --- a/mcgoron/weight-balanced-trees/srfi/113/sets.scm +++ b/mcgoron/weight-balanced-trees/srfi/113/sets.scm @@ -342,7 +342,11 @@ (define set-union (convert-binary-procedure union)) (define set-union! set-union) -(define set-intersection (convert-binary-procedure intersection)) +(define set-intersection (convert-binary-procedure + (lambda (cmp node1 node2) + (if (eq? node1 node2) + node1 + (intersection cmp node1 node2))))) (define set-intersection! set-intersection) (define set-difference (convert-binary-procedure difference)) |