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/parser.c b/parser.c
index a419ace6..11249945 100644
--- a/parser.c
+++ b/parser.c
@@ -476,7 +476,7 @@ val regex_parse(val string, val error_stream)
   val stream = make_string_byte_input_stream(string);
   parser_t parser;
 
-  error_stream = default_bool_arg(error_stream);
+  error_stream = default_null_arg(error_stream);
   std_error = if3(error_stream == t, std_output, or2(error_stream, std_null));
 
   parser_common_init(&parser);
@@ -501,11 +501,11 @@ static val lisp_parse_impl(val interactive, val source_in, val error_stream,
                            val error_return_val, val name_in, val lineno)
 {
   uses_or2;
-  val source = default_bool_arg(source_in);
+  val source = default_null_arg(source_in);
   val input_stream = if3(stringp(source),
                          make_string_byte_input_stream(source),
                          or2(source, std_input));
-  val name = or2(default_bool_arg(name_in),
+  val name = or2(default_null_arg(name_in),
                  if3(stringp(source),
                      lit("string"),
                      stream_get_prop(input_stream, name_k)));
@@ -518,7 +518,7 @@ static val lisp_parse_impl(val interactive, val source_in, val error_stream,
 
   dyn_env = make_env(nil, nil, dyn_env);
 
-  error_stream = default_bool_arg(error_stream);
+  error_stream = default_null_arg(error_stream);
   error_stream = if3(error_stream == t, std_output, or2(error_stream, std_null));
   class_check (error_stream, stream_s);