diff options
| author |  Peter McGoron
| 2025-01-16 20:03:54 -0500 |
|---|---|---|
| committer | Peter McGoron
| 2025-01-16 20:03:54 -0500 |
| commit | b12805a072f1c077d63635f3dacc77a4f06d45a6 (patch) | |
| tree | 5a64676c7bf78fceaddb22454a9bb4c6faea6df6 /mcgoron.weight-balanced-trees.internal.sld | |
| parent | rename module to internal (diff) | |
join2
Diffstat (limited to 'mcgoron.weight-balanced-trees.internal.sld')
| -rw-r--r-- | mcgoron.weight-balanced-trees.internal.sld | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/mcgoron.weight-balanced-trees.internal.sld b/mcgoron.weight-balanced-trees.internal.sld index f5f5362..804a8bf 100644 --- a/mcgoron.weight-balanced-trees.internal.sld +++ b/mcgoron.weight-balanced-trees.internal.sld @@ -21,12 +21,15 @@ (else (begin (define-syntax : (syntax-rules () - ((: dummy ...) (begin))))))) + ((: dummy ...) (begin)))) + (define-syntax the + (syntax-rules () + ((the type expression) expression)))))) (export wb-tree-node? non-null-wb-tree-node? get-data get-left get-right get-size balanced? in-order-vector->node node->in-order-list - join) + join join2) (include "mcgoron.weight-balanced-trees.internal.scm")) |