From 25b5bdc5dfe62037faef8f19c070de434b660aa6 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 11 May 2021 06:45:18 -0700 Subject: 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. --- tests/010/tree.tl | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'tests/010/tree.tl') 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) -- cgit v1.2.3