From db03bc4a9fa34ebea017474e0760fef89de9d67f Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 2 Jul 2021 06:56:37 -0700 Subject: tree: expose missing tnodep. * tree.c (tree_init): Register tnodep as intrinsic function. This is documented! Another discrepancy found thanks to the new piece of code in genman.txr. --- tree.c | 1 + 1 file changed, 1 insertion(+) diff --git a/tree.c b/tree.c index 9cfefdbf..fb70c903 100644 --- a/tree.c +++ b/tree.c @@ -980,6 +980,7 @@ void tree_init(void) reg_fun(intern(lit("set-right"), user_package), func_n2(set_right)); reg_fun(intern(lit("set-key"), user_package), func_n2(set_key)); reg_fun(intern(lit("copy-tnode"), user_package), func_n1(copy_tnode)); + reg_fun(intern(lit("tnodep"), user_package), func_n1(tnodep)); reg_fun(tree_s, func_n4o(tree, 0)); reg_fun(tree_construct_s, func_n2(tree_construct)); reg_fun(intern(lit("copy-search-tree"), user_package), func_n1(copy_search_tree)); -- cgit v1.2.3