diff options
| -rw-r--r-- | eval.c | 15 |
1 files changed, 13 insertions, 2 deletions
@@ -5601,7 +5601,7 @@ static val muffle_unbound_warning(val exc, varg args) return nil; } -static val no_warn_expand(val form, val menv) +static val no_ub_warn_expand(val form, val menv) { val ret; uw_frame_t uw_handler; @@ -5612,6 +5612,17 @@ static val no_warn_expand(val form, val menv) return ret; } +static val no_warn_expand(val form, val menv) +{ + val ret; + uw_frame_t uw_handler; + uw_push_handler(&uw_handler, cons(warning_s, nil), + func_n1v(uw_muffle_warning)); + ret = no_ub_warn_expand(form, menv); + uw_pop_frame(&uw_handler); + return ret; +} + static val gather_free_refs(val info_cons, val exc, varg args) { val self = lit("expand-with-free-refs"); @@ -7645,7 +7656,7 @@ void eval_init(void) reg_var(load_search_dirs_s, nil); reg_var(load_args_s, nil); reg_var(load_hooks_s, nil); - reg_fun(intern(lit("expand"), user_package), func_n2o(no_warn_expand, 1)); + reg_fun(intern(lit("expand"), user_package), func_n2o(no_ub_warn_expand, 1)); reg_fun(intern(lit("expand*"), user_package), func_n2o(expand, 1)); reg_fun(intern(lit("expand-hook-combine"), user_package), func_n2(expand_hook_combine)); reg_fun(intern(lit("expand-with-free-refs"), user_package), |