tree: make node insertion external.

* tree.c (tree_insert_node): Change to external linkage.

* tree.h (tree_insert_node): Declared.

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);