tree: replace-tree-iter function.

* tree.c (replace_tree_iter): New function.
(tree_init): Register replace-tree-iter intrinsic.

* tree.h (tree_init): Declared.

* share/txr/stdlib/doc-syms.tl: Updated.

* txr.1: Documented.

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

1 files changed, 11 insertions, 0 deletions

diff --git a/tests/010/tree.tl b/tests/010/tree.tl
index e3b2ce0c..ed86c076 100644
--- a/tests/010/tree.tl
+++ b/tests/010/tree.tl
@@ -103,6 +103,17 @@
               (key (tree-next t1))))
       (1 2 3))
 
+(test (let* ((t0 (tree-begin tr))
+             (t1 (progn (tree-next t0) (copy-tree-iter t0)))
+             (t2 (replace-tree-iter (tree-begin tr) t0)))
+        (tree-next t0)
+        (tree-next t0)
+        (list (key (tree-next t1))
+              (key (tree-next t1))
+              (key (tree-next t2))
+              (key (tree-next t2))))
+      (1 2 1 2))
+
 (test (tree-next (tree-begin-at tr 20)) nil)
 
 (test (tree-next (tree-begin-at #T(()) 0)) nil)