From 96715da165569922e1efa584eb0ce4f4d272c46d Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 9 May 2021 17:45:55 -0700
Subject: tree: new tree-peek function.

* tree.c (tn_peek_next): New static function.
(tree_peek): New function.
(tree_init): Register tree-peek intrinsic.

* tree.h (tree_peek): Declared.

* txr.1: Documented.

* tests/010/tree.c: Work tree-peek into existing test case.

* share/txr/stdlib/doc-syms.tl: Updated.
---
 tree.h | 1 +
 1 file changed, 1 insertion(+)

(limited to 'tree.h')

diff --git a/tree.h b/tree.h
index d1b726c2..0ee9cb0a 100644
--- a/tree.h
+++ b/tree.h
@@ -48,5 +48,6 @@ val tree_begin_at(val tree, val lowkey);
 val tree_reset(val iter, val tree);
 val tree_reset_at(val iter, val tree, val lowkey);
 val tree_next(val iter);
+val tree_peek(val iter);
 val tree_clear(val tree);
 void tree_init(void);
-- 
cgit v1.2.3