Rename badly named default_bool_arg

* lib.h (default_bool_arg): Inline function renamed to
default_null_arg.

* eval.c (if_fun, pad, ginterate, giterate, range_star, range,
constantp, macroexpand_1, macro_form_p, expand_with_free_refs,
do_expand, eval_intrinsic, func_get_name, make_env_intrinsic):
Follow rename.

* arith.c (lognot): Likewise.

* gc.c (gc_finalize): Likewise.

* glob.c (glob_wrap): Likewise.

* hash.c (group_reduce, gethash_n): Likewise.

* lib.c (print, multi_sort, lazy_str, vector, iff, tok_str,
split_str_keep, search_str, remove_if, val): Likewise.

* match.c (match_fun): Likewise.

* parser.c (lisp_parse_impl, regex_parse): Likewise.

* rand.c (make_random_state): Likewise.

* regex.c (read_until_match, search_regex, regex_compile):
Likewise.

* socket.c (sock_accept, sock_connect): Likewise.

* stream.c (open_files_star, open_files, run, open_process,
open_tail, get_string, record_adapter): Likewise.

* struct.c (static_slot_ensure, static_slot_ens_rec,
clear_struct, make_struct_type): Likewise.

* sysif.c (exec_wrap, errno_wrap, cobj_ops_init): Likewise.

* unwind.c (uw_capture_cont, uw_find_frames_impl): Likewise.

1 files changed, 2 insertions, 2 deletions

diff --git a/hash.c b/hash.c
index c9aa5b6a..d1a60da5 100644
--- a/hash.c
+++ b/hash.c
@@ -716,7 +716,7 @@ val gethash_f(val hash, val key, loc found)
 val gethash_n(val hash, val key, val notfound_val)
 {
   val existing = gethash_e(hash, key);
-  return if3(existing, cdr(existing), default_bool_arg(notfound_val));
+  return if3(existing, cdr(existing), default_null_arg(notfound_val));
 }
 
 val sethash(val hash, val key, val value)
@@ -1085,7 +1085,7 @@ val group_by(val func, val seq, struct args *hashv_args)
 val group_reduce(val hash, val by_fun, val reduce_fun, val seq,
                  val initval, val filter_fun)
 {
-  initval = default_bool_arg(initval);
+  initval = default_null_arg(initval);
 
   if (vectorp(seq)) {
     cnum i, len;