summaryrefslogtreecommitdiffstats
path: root/gc.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2017-03-17 20:34:47 -0700
committerKaz Kylheku <kaz@kylheku.com>2017-03-17 20:34:47 -0700
commit3f4586d1ee813ecd23456956d5f2c7f4759a5922 (patch)
tree402e17e4fa35841409bf1ccb33ea112009b8dcfe /gc.c
parentfbb35f10c305128e865f7c16e21f61ea6e62083e (diff)
downloadtxr-3f4586d1ee813ecd23456956d5f2c7f4759a5922.tar.gz
txr-3f4586d1ee813ecd23456956d5f2c7f4759a5922.tar.bz2
txr-3f4586d1ee813ecd23456956d5f2c7f4759a5922.zip
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.
Diffstat (limited to 'gc.c')
-rw-r--r--gc.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/gc.c b/gc.c
index 06e00be9..4e7c9eb9 100644
--- a/gc.c
+++ b/gc.c
@@ -846,7 +846,7 @@ val gc_finalize(val obj, val fun, val rev_order_p)
{
type_check(fun, FUN);
- rev_order_p = default_bool_arg(rev_order_p);
+ rev_order_p = default_null_arg(rev_order_p);
if (is_ptr(obj)) {
struct fin_reg *f = coerce(struct fin_reg *, chk_malloc(sizeof *f));