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

diff --git a/unwind.c b/unwind.c
index cbbdf70a..dc883396 100644
--- a/unwind.c
+++ b/unwind.c
@@ -344,7 +344,7 @@ static val uw_find_frames_impl(val extype, val frtype, val just_one)
   uw_frtype_t et;
   list_collect_decl (out, ptail);
 
-  extype = default_bool_arg(extype);
+  extype = default_null_arg(extype);
   frtype = default_arg_strict(frtype, catch_frame_type);
 
   if (symbolp(frtype)) {
@@ -987,7 +987,7 @@ val uw_capture_cont(val tag, val fun, val ctx_form)
       break;
     case UW_GUARD:
       {
-        val sym = or2(car(default_bool_arg(ctx_form)), sys_capture_cont_s);
+        val sym = or2(car(default_null_arg(ctx_form)), sys_capture_cont_s);
         eval_error(ctx_form, lit("~s: cannot capture continuation "
                                  "spanning external library stack frames"),
                    sym, nao);
@@ -1000,7 +1000,7 @@ val uw_capture_cont(val tag, val fun, val ctx_form)
   }
 
   if (!fr) {
-    val sym = or2(car(default_bool_arg(ctx_form)), sys_capture_cont_s);
+    val sym = or2(car(default_null_arg(ctx_form)), sys_capture_cont_s);
 
     if (tag)
       eval_error(ctx_form, lit("~s: no block ~s is visible"), sym, tag, nao);