summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2019-10-07 20:15:14 -0700
committerKaz Kylheku <kaz@kylheku.com>2019-10-07 20:15:14 -0700
commit7e8f28fa8c971c388951e8fca923ac856c1ea9e4 (patch)
tree9b60f55dd10c5b29a81bf9a129e60a9fadfbf0d4
parent4926db84bd8406ffd4b82332b1c27cae74c2e773 (diff)
downloadtxr-7e8f28fa8c971c388951e8fca923ac856c1ea9e4.tar.gz
txr-7e8f28fa8c971c388951e8fca923ac856c1ea9e4.tar.bz2
txr-7e8f28fa8c971c388951e8fca923ac856c1ea9e4.zip
tree: make node insertion external.
* tree.c (tree_insert_node): Change to external linkage. * tree.h (tree_insert_node): Declared.
-rw-r--r--tree.c2
-rw-r--r--tree.h1
2 files changed, 2 insertions, 1 deletions
diff --git a/tree.c b/tree.c
index 4f81a7a1..39424467 100644
--- a/tree.c
+++ b/tree.c
@@ -381,7 +381,7 @@ static val tr_delete(struct tree *tr, val key)
return nil;
}
-static val tree_insert_node(val tree, val node)
+val tree_insert_node(val tree, val node)
{
val self = lit("tree-insert-node");
struct tree *tr = coerce(struct tree *, cobj_handle(self, tree, tree_s));
diff --git a/tree.h b/tree.h
index 6233a0fc..871c80bb 100644
--- a/tree.h
+++ b/tree.h
@@ -36,6 +36,7 @@ val right(val node);
val key(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);
val tree_begin(val tree);
val tree_next(val iter);
void tree_init(void);