From 337ffc1e586d48b5fe6a334a6fd61587961fe261 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 16 Oct 2019 00:05:08 -0700 Subject: tree: introduce copy-tnode. * lib.c (copy): Handle TNOD casee via copy_tnode. * tree.c (copy_tnode): New function. (tree_init): copy-tnode intrinsic registered. * tree.h (copy_tnode): Declared. * txr.1: copy function documented as handling tnode type via copy-tnode. That function is documented. --- tree.h | 1 + 1 file changed, 1 insertion(+) (limited to 'tree.h') diff --git a/tree.h b/tree.h index 94270b4b..0f056429 100644 --- a/tree.h +++ b/tree.h @@ -34,6 +34,7 @@ val tnodep(val obj); val left(val node); val right(val node); val key(val node); +val copy_tnode(val node); val tree(val keys, val key_fn, val less_fn, val equal_fn); val treep(val obj); val tree_insert_node(val tree, val node); -- cgit v1.2.3