tree: new make_similar_tree unction.

* tree.c (make_similar_tree): New function.
(tree_init): Register make-similar-tree intrinsic

* tree.h (make_similar_tree): Declared.

* tests/010/tree.tl: New tests.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/tree.h b/tree.h
index 7b7c3ef0..d1b726c2 100644
--- a/tree.h
+++ b/tree.h
@@ -40,6 +40,7 @@ val set_key(val node, val nkey);
 val copy_tnode(val node);
 val tree(val keys, val key_fn, val less_fn, val equal_fn);
 val copy_search_tree(val tree);
+val make_similar_tree(val tree);
 val treep(val obj);
 val tree_insert_node(val tree, val node);
 val tree_begin(val tree);