add set-contains? test, remove NaNs because they cannot be used in the default comparator

1 files changed, 2 insertions, 2 deletions

diff --git a/doc/mcgoron.weight-balanced-trees.internal.scm b/doc/mcgoron.weight-balanced-trees.internal.scm
index 07eacc1..13b2925 100644
--- a/doc/mcgoron.weight-balanced-trees.internal.scm
+++ b/doc/mcgoron.weight-balanced-trees.internal.scm
@@ -64,8 +64,8 @@ all values to the right of `key`.
 If a value that compares equal to `key` is found, that value is returned.
 Otherwise the result of calling `default` with no arguments is returned.")
  ((name . "search")
-  (signature case-lambda ((((comparator? cmp) (balanced? tree) key) *)
-                          (((comparator? cmp) (balanced? tree) key (procedure? default)) *)))
+  (signature case-lambda ((((comparator? cmp) key (balanced? tree)) *)
+                          (((comparator? cmp) key (balanced? tree) (procedure? default)) *)))
   (subsigs (default (lambda () *)))
   (desc "
 * It is an error if `cmp` does not order `key` and all elements in `tree`.