* eval.c (eval_init): Register hash_guni and hash_gisec as intrinsics.

* hash.c (hash_guni, hash_gisec): New functions.
(hash_isec): Bugfix: since gethash was naively used, keys in hash2
associated with the value nil were erroneously omitted from the
intersection.

* hash.h (hash_guni, hash_gisec): Declared.

* txr.1: Documented new functions.

1 files changed, 2 insertions, 0 deletions

diff --git a/hash.h b/hash.h
index 5afc9572..89048457 100644
--- a/hash.h
+++ b/hash.h
@@ -54,8 +54,10 @@ val hash_values(val hash);
 val hash_pairs(val hash);
 val hash_alist(val hash);
 val hash_uni(val hash1, val hash2);
+val hash_guni(val hash1, val hash2);
 val hash_diff(val hash1, val hash2);
 val hash_isec(val hash1, val hash2);
+val hash_gisec(val hash1, val hash2);
 val hash_update(val hash, val fun);
 
 void hash_process_weak(void);