New function: hash-peek.

* hash.c (hash_peek): New function.
(hash_init): hash-peek intrinsic registered.

* hash.h (hash_peek): Declared.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/hash.h b/hash.h
index baa27529..66cc55a8 100644
--- a/hash.h
+++ b/hash.h
@@ -49,6 +49,7 @@ val hashp(val obj);
 val maphash(val func, val hash);
 val hash_begin(val hash);
 val hash_next(val iter);
+val hash_peek(val iter);
 val hash_eql(val obj);
 val hash_equal(val obj, val seed);
 val hashv(struct args *args);