From 9a208e2a76ba1c8595a1074e90722a68e70be1b9 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 24 Oct 2016 06:54:34 -0700 Subject: hash-construct: eliminate redundant intern. * hash.c (hash_init): register hash-constrct using symbol in hash_construct_s variable that was previously interned rather than result of new call to intern. --- hash.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hash.c b/hash.c index bb270de9..ab2a0fd9 100644 --- a/hash.c +++ b/hash.c @@ -1360,7 +1360,7 @@ void hash_init(void) reg_fun(intern(lit("make-similar-hash"), user_package), func_n1(make_similar_hash)); reg_fun(intern(lit("copy-hash"), user_package), func_n1(copy_hash)); reg_fun(intern(lit("hash"), user_package), func_n0v(hashv)); - reg_fun(intern(lit("hash-construct"), user_package), func_n2(hash_construct)); + reg_fun(hash_construct_s, func_n2(hash_construct)); reg_fun(intern(lit("hash-from-pairs"), user_package), func_n1v(hash_from_pairs_v)); reg_fun(intern(lit("hash-list"), user_package), func_n1v(hash_list)); reg_fun(intern(lit("gethash"), user_package), func_n3o(gethash_n, 2)); -- cgit v1.2.3