From 260968beacb1a2e1c6bdd652f75fe087f907ce0f Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 12 Feb 2014 20:25:27 -0800 Subject: * 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. --- hash.h | 2 ++ 1 file changed, 2 insertions(+) (limited to 'hash.h') 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); -- cgit v1.2.3