From 7e8f28fa8c971c388951e8fca923ac856c1ea9e4 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 7 Oct 2019 20:15:14 -0700
Subject: tree: make node insertion external.

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

* tree.h (tree_insert_node): Declared.
---
 tree.c | 2 +-
 tree.h | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

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);
-- 
cgit v1.2.3