generator->node

1 files changed, 12 insertions, 2 deletions

diff --git a/doc/mcgoron.weight-balanced-trees.internal.scm b/doc/mcgoron.weight-balanced-trees.internal.scm
index 12d7e6e..ac3b921 100644
--- a/doc/mcgoron.weight-balanced-trees.internal.scm
+++ b/doc/mcgoron.weight-balanced-trees.internal.scm
@@ -155,9 +155,19 @@ Calls `predicate?` on each element of `tree` in an arbitrary order. If all
 calls return a truthy value, return a truthy value. Otherwise return `#f`."))
  ((name . "node->generator")
   (signature
-   lambda ((balanced? node)) procedure?)
+   lambda ((generator? node)) procedure?)
   (subsigs
    (return lambda () *))
   (desc "
 Returns a generator (see SRFI-158) that generates the elements of `node`
-in arbitrary order.")))
\ No newline at end of file
+in arbitrary order."))
+ ((name . "generator->node")
+  (signature
+   lambda ((comparator? cmp) (generator? generator)) balanced?)
+  (desc "
+* It is an error if `generator` is not finite.
+* It is an error if the values generated by `generator` are not comparable
+  by `cmp`.
+
+Returns a weight balanced tree whose elements are all of the elements
+of `generator`.")))
\ No newline at end of file