New function: copy-tree.

* eval.c (eval_init): Register copy-tree intrinsic.

* lib.c (copy_tree): New function.

* lib.h (copy_tree): Declared.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index a57442a4..bd5fbfc3 100644
--- a/lib.h
+++ b/lib.h
@@ -1061,6 +1061,7 @@ val alist_nremove(val list, val keys);
 val alist_nremovev(val list, struct args *keys);
 val alist_nremove1(val list, val key);
 val copy_cons(val cons);
+val copy_tree(val tree);
 val copy_alist(val list);
 val mapcar_listout(val fun, val list);
 val mapcar(val fun, val list);