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, 2 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 81f3d06d..b6f22971 100644
--- a/lib.c
+++ b/lib.c
@@ -10081,6 +10081,8 @@ val copy(val seq)
       return make_random_state(seq, nil);
     if (seq->co.cls == carray_s)
       return copy_carray(seq);
+    if (seq->co.cls == tree_s)
+      return copy_search_tree(seq);
     if (obj_struct_p(seq))
       return copy_struct(seq);
     /* fallthrough */