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, 4 insertions, 4 deletions

diff --git a/struct.c b/struct.c
index bd9644be..84977da6 100644
--- a/struct.c
+++ b/struct.c
@@ -289,7 +289,7 @@ val make_struct_type(val name, val super,
     st->stinitfun = static_initfun;
     st->initfun = initfun;
     st->boactor = boactor;
-    st->postinitfun = default_bool_arg(postinitfun);
+    st->postinitfun = default_null_arg(postinitfun);
     st->dvtypes = nil;
 
     gc_finalize(stype, struct_type_finalize_f, nil);
@@ -637,7 +637,7 @@ val clear_struct(val strct, val value)
   const val self = lit("clear-struct");
   struct struct_inst *si = struct_handle(strct, self);
   struct struct_type *st = si->type;
-  val clear_val = default_bool_arg(value);
+  val clear_val = default_null_arg(value);
   cnum i;
 
   check_init_lazy_struct(strct, si);
@@ -1046,7 +1046,7 @@ static val static_slot_ens_rec(val stype, val sym, val newval,
     uw_throwf(error_s, lit("~a: ~s isn't a valid slot name"),
               self, sym, nao);
 
-  no_error_p = default_bool_arg(no_error_p);
+  no_error_p = default_null_arg(no_error_p);
 
   if (st->eqmslot == coerce(struct stslot *, -1))
     st->eqmslot = 0;
@@ -1129,7 +1129,7 @@ val static_slot_ensure(val stype, val sym, val newval, val no_error_p)
     trace_check(name);
   }
 
-  no_error_p = default_bool_arg(no_error_p);
+  no_error_p = default_null_arg(no_error_p);
   return static_slot_ens_rec(stype, sym, newval, no_error_p, self, 0);
 }