tree: copy-search-tree function.

* lib.c (copy): Handle tree objects via copy_search_tree.

* tree.c (deep_copy_tnode): New static function.
(copy_search_tree): New function.
(tree_init): copy-search-tree intrinsic registered.

* tree.h (copy_search_tree): Declared.

* txr.1: Documented copy-search-tree, and copy function's use
thereof.

1 files changed, 1 insertions, 0 deletions

diff --git a/tree.h b/tree.h
index 528bae7b..7c7833bf 100644
--- a/tree.h
+++ b/tree.h
@@ -39,6 +39,7 @@ val set_right(val node, val nright);
 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 treep(val obj);
 val tree_insert_node(val tree, val node);
 val tree_begin(val tree);