From 3f4586d1ee813ecd23456956d5f2c7f4759a5922 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku 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. --- unwind.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'unwind.c') 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); -- cgit v1.2.3