From 3f4586d1ee813ecd23456956d5f2c7f4759a5922 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 17 Mar 2017 20:34:47 -0700
Subject: 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.
---
 stream.c | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'stream.c')

diff --git a/stream.c b/stream.c
index 6df413f9..b00b4720 100644
--- a/stream.c
+++ b/stream.c
@@ -2584,7 +2584,7 @@ val record_adapter(val regex, val stream, val include_match)
                                           rec_adapter->co.handle);
 
   rb->regex = regex;
-  rb->include_match = default_bool_arg(include_match);
+  rb->include_match = default_null_arg(include_match);
   return rec_adapter;
 }
 
@@ -3557,7 +3557,7 @@ val get_string(val stream_in, val nchars, val close_after_p)
 {
   val stream = default_arg(stream_in, std_input);
   val strstream = make_string_output_stream();
-  nchars = default_bool_arg(nchars);
+  nchars = default_null_arg(nchars);
   val ch;
 
   if (nchars) {
@@ -3633,7 +3633,7 @@ val open_tail(val path, val mode_str, val seek_end_p)
   val stream;
   unsigned long state = 0;
 
-  if (f && default_bool_arg(seek_end_p))
+  if (f && default_null_arg(seek_end_p))
     if (fseek(f, 0, SEEK_END) < 0)
       uw_throwf(file_error_s, lit("error seeking to end of ~a: ~d/~s"),
                 path, num(errno), string_utf8(strerror(errno)), nao);
@@ -3755,7 +3755,7 @@ val open_process(val name, val mode_str, val args)
   struct save_fds sfds;
   val ret = nil;
 
-  args = default_bool_arg(args);
+  args = default_null_arg(args);
   nargs = c_num(length(args)) + 1;
 
   fds_init(&sfds);
@@ -3937,7 +3937,7 @@ static val win_make_cmdline(val args)
 
 val open_process(val name, val mode_str, val args)
 {
-  val win_cmdline = win_make_cmdline(cons(name, default_bool_arg(args)));
+  val win_cmdline = win_make_cmdline(cons(name, default_null_arg(args)));
   return open_command(win_cmdline, mode_str);
 }
 #endif
@@ -3952,7 +3952,7 @@ static val run(val name, val args)
   struct save_fds sfds;
   val ret = nil;
 
-  args = default_bool_arg(args);
+  args = default_null_arg(args);
   nargs = c_num(length(args)) + 1;
 
   argv = coerce(char **, chk_malloc((nargs + 1) * sizeof *argv));
@@ -4023,7 +4023,7 @@ static val run(val command, val args)
   int i, nargs, status;
   struct save_fds sfds;
 
-  args = default_bool_arg(args);
+  args = default_null_arg(args);
   nargs = c_num(length(args)) + 1;
 
   fds_init(&sfds);
@@ -4083,7 +4083,7 @@ val rename_path(val from, val to)
 
 static val open_files(val file_list, val substitute_stream)
 {
-  substitute_stream = default_bool_arg(substitute_stream);
+  substitute_stream = default_null_arg(substitute_stream);
 
   if (nilp(file_list) && substitute_stream) {
     return substitute_stream;
@@ -4094,7 +4094,7 @@ static val open_files(val file_list, val substitute_stream)
 
 static val open_files_star(val file_list, val substitute_stream)
 {
-  substitute_stream = default_bool_arg(substitute_stream);
+  substitute_stream = default_null_arg(substitute_stream);
 
   if (nilp(file_list) && substitute_stream) {
     return substitute_stream;
-- 
cgit v1.2.3