From 39655edfb062034a76c0b880bf810d14d9047baa Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 10 Feb 2017 15:21:16 -0800 Subject: Properly default arguments in expand_with_free_refs. * eval.c (expand_with_free_refs): Properly handle defaulting of the two optional arguments. --- eval.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/eval.c b/eval.c index afd254dd..08a3f851 100644 --- a/eval.c +++ b/eval.c @@ -4352,9 +4352,11 @@ static val gather_free_refs_nw(val info_cons, val exc, uw_throw(continue_s, nil); } -static val expand_with_free_refs(val form, val menv, val upto_menv) +static val expand_with_free_refs(val form, val menv_in, val upto_menv_in) { val ret; + val menv = default_bool_arg(menv_in); + val upto_menv = default_bool_arg(upto_menv_in); uw_frame_t uw_handler; val info_cons_free = cons(nil, nil); val info_cons_bound = cons(nil, nil); -- cgit v1.2.3