tree: add treep predicate.

* tree.c (treep): new function.
(tree_init): Registered treep intrinsic.

1 files changed, 1 insertions, 0 deletions

diff --git a/tree.h b/tree.h
index 7a27d7b1..32f846e9 100644
--- a/tree.h
+++ b/tree.h
@@ -35,4 +35,5 @@ val left(val node);
 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);
 void tree_init(void);