Hash subset testing.

* eval.c (eval_init): Register hash-subset and hash-proper-subset
intrinsics.

* hash.c (hash_subset, hash_proper_subset): New functions.

* hash.h (hash_subset, hash_proper_subset): Declared.

* txr.1: New functions documented.

1 files changed, 2 insertions, 0 deletions

diff --git a/hash.h b/hash.h
index 76955ac2..6b393b77 100644
--- a/hash.h
+++ b/hash.h
@@ -56,6 +56,8 @@ val hash_alist(val hash);
 val hash_uni(val hash1, val hash2, val join_func);
 val hash_diff(val hash1, val hash2);
 val hash_isec(val hash1, val hash2, val join_func);
+val hash_subset(val hash1, val hash2);
+val hash_proper_subset(val hash1, val hash2);
 val hash_update(val hash, val fun);
 val hash_update_1(val hash, val key, val fun, val init);