Eliminate duplicated warning-suppressing function.

* eval.c (warning_continue): Static function removed.
(no_warn_expand): Use uw_muffle_warning instead of
removed function.

* parser.y (warning_continue): Static function removed.
(parse_once): Use uw_muffle_warning instead of
removed function.

* unwind.c (uw_muffle_warning): New function.

* unwind.h (uw_muffle_warning): Declared.

1 files changed, 2 insertions, 6 deletions

diff --git a/eval.c b/eval.c
index d1396f4c..53fb6ad5 100644
--- a/eval.c
+++ b/eval.c
@@ -3929,16 +3929,12 @@ val expand(val form, val menv)
   return ret;
 }
 
-static val warning_continue(val exc, val arg)
-{
-  uw_throw(continue_s, nil);
-}
-
 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_n2(warning_continue));
+  uw_push_handler(&uw_handler, cons(warning_s, nil),
+                  func_n1v(uw_muffle_warning));
   ret = expand(form, menv);
   uw_pop_frame(&uw_handler);
   return ret;