diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2019-10-07 20:15:14 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2019-10-07 20:15:14 -0700 |
commit | 7e8f28fa8c971c388951e8fca923ac856c1ea9e4 (patch) | |
tree | 9b60f55dd10c5b29a81bf9a129e60a9fadfbf0d4 | |
parent | 4926db84bd8406ffd4b82332b1c27cae74c2e773 (diff) | |
download | txr-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.c | 2 | ||||
-rw-r--r-- | tree.h | 1 |
2 files changed, 2 insertions, 1 deletions
@@ -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)); @@ -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); |