Move registration of hash module functions to hash.c

* eval.c (gethash_s): Global symbol variable removed,
due to being used only in one place.
(eval_init): Remove registration of make-hash, make-similar-hash,
copy-hash, hash, hash-construct, hash-from-pairs, hash-list, inhash,
sethash, pushhash, remhash, hash-count, get-hash-userdata,
set-hash-userdata, hashp, maphash, hash-eql, hash-equal, hash-keys,
hash-values, hash-pairs, hash-alist, hash-uni, hash-diff, hash-isec,
hash-subset, hash-proper-subset, group-by, group-reduce, hash-update,
hash-update-1, hash-revget, hash-begin, hash-next.

* hash.c (hash_init): Registrations removed from eval_init
moved here.

1 files changed, 1 insertions, 41 deletions

diff --git a/eval.c b/eval.c
index f3dca033..4f94e6fa 100644
--- a/eval.c
+++ b/eval.c
@@ -81,7 +81,7 @@ val sys_mark_special_s;
 val caseq_s, caseql_s, casequal_s;
 val memq_s, memql_s, memqual_s;
 val eq_s, eql_s, equal_s;
-val gethash_s, car_s, cdr_s, not_s, vecref_s;
+val car_s, cdr_s, not_s, vecref_s;
 val setq_s, inc_s, zap_s;
 val for_s, for_star_s, each_s, each_star_s, collect_each_s, collect_each_star_s;
 val append_each_s, append_each_star_s, while_s, while_star_s, until_star_s;
@@ -4646,7 +4646,6 @@ void eval_init(void)
   return_from_s = intern(lit("return-from"), user_package);
   sys_abscond_from_s = intern(lit("abscond-from"), system_package);
   block_star_s = intern(lit("block*"), user_package);
-  gethash_s = intern(lit("gethash"), user_package);
   car_s = intern(lit("car"), user_package);
   cdr_s = intern(lit("cdr"), user_package);
   not_s = intern(lit("not"), user_package);
@@ -5021,48 +5020,9 @@ void eval_init(void)
   reg_fun(intern(lit("regsub"), user_package), func_n3(regsub));
   reg_fun(intern(lit("regex-parse"), user_package), func_n2o(regex_parse, 1));
 
-  reg_fun(intern(lit("make-hash"), user_package), func_n3(make_hash));
-  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(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(gethash_s, func_n3o(gethash_n, 2));
-  reg_fun(intern(lit("inhash"), user_package), func_n3o(inhash, 2));
-  reg_fun(intern(lit("sethash"), user_package), func_n3(sethash));
-  reg_fun(intern(lit("pushhash"), user_package), func_n3(pushhash));
-  reg_fun(intern(lit("remhash"), user_package), func_n2(remhash));
-  reg_fun(intern(lit("hash-count"), user_package), func_n1(hash_count));
-  reg_fun(intern(lit("get-hash-userdata"), user_package),
-          func_n1(get_hash_userdata));
-  reg_fun(intern(lit("set-hash-userdata"), user_package),
-          func_n2(set_hash_userdata));
-  reg_fun(intern(lit("hashp"), user_package), func_n1(hashp));
-  reg_fun(intern(lit("maphash"), user_package), func_n2(maphash));
-  reg_fun(intern(lit("hash-eql"), user_package), func_n1(hash_eql));
-  reg_fun(intern(lit("hash-equal"), user_package), func_n1(hash_equal));
-  reg_fun(intern(lit("hash-keys"), user_package), func_n1(hash_keys));
-  reg_fun(intern(lit("hash-values"), user_package), func_n1(hash_values));
-  reg_fun(intern(lit("hash-pairs"), user_package), func_n1(hash_pairs));
-  reg_fun(intern(lit("hash-alist"), user_package), func_n1(hash_alist));
-  reg_fun(intern(lit("hash-uni"), user_package), func_n3o(hash_uni, 2));
-  reg_fun(intern(lit("hash-diff"), user_package), func_n2(hash_diff));
-  reg_fun(intern(lit("hash-isec"), user_package), func_n3o(hash_isec, 2));
-  reg_fun(intern(lit("hash-subset"), user_package), func_n2(hash_subset));
-  reg_fun(intern(lit("hash-proper-subset"), user_package), func_n2(hash_proper_subset));
-  reg_fun(intern(lit("group-by"), user_package), func_n2v(group_by));
-  reg_fun(intern(lit("group-reduce"), user_package),
-          func_n6o(group_reduce, 4));
   reg_fun(intern(lit("sort-group"), user_package), func_n3o(sort_group, 1));
   reg_fun(intern(lit("unique"), user_package), func_n2ov(unique, 1));
   reg_fun(intern(lit("uniq"), user_package), func_n1(uniq));
-  reg_fun(intern(lit("hash-update"), user_package), func_n2(hash_update));
-  reg_fun(intern(lit("hash-update-1"), user_package),
-          func_n4o(hash_update_1, 3));
-  reg_fun(intern(lit("hash-revget"), user_package), func_n4o(hash_revget, 2));
-  reg_fun(intern(lit("hash-begin"), user_package), func_n1(hash_begin));
-  reg_fun(intern(lit("hash-next"), user_package), func_n1(hash_next));
 
   reg_fun(intern(lit("eval"), user_package), func_n2o(eval_intrinsic, 1));
   reg_fun(intern(lit("lisp-parse"), user_package), func_n5o(lisp_parse, 0));