From 48ef128584e4b15c8b83de0f10f6d077031fa0ee Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 30 Sep 2019 06:51:51 -0700
Subject: tree: add treep predicate.

* tree.c (treep): new function.
(tree_init): Registered treep intrinsic.
---
 tree.h | 1 +
 1 file changed, 1 insertion(+)

(limited to 'tree.h')

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