From 25b5bdc5dfe62037faef8f19c070de434b660aa6 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
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.
---
 tree.h | 1 +
 1 file changed, 1 insertion(+)

(limited to 'tree.h')

diff --git a/tree.h b/tree.h
index 72ee43db..7b045f1a 100644
--- a/tree.h
+++ b/tree.h
@@ -51,6 +51,7 @@ val tree_delete(val tree, val key);
 val tree_begin(val tree);
 val tree_begin_at(val tree, val lowkey);
 val copy_tree_iter(val iter);
+val replace_tree_iter(val diter, val siter);
 val tree_reset(val iter, val tree);
 val tree_reset_at(val iter, val tree, val lowkey);
 val tree_next(val iter);
-- 
cgit v1.2.3