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, 7 insertions, 0 deletions

diff --git a/unwind.c b/unwind.c
index 946db162..056cdb50 100644
--- a/unwind.c
+++ b/unwind.c
@@ -406,6 +406,13 @@ val uw_invoke_catch(val catch_frame, val sym, struct args *args)
   abort();
 }
 
+val uw_muffle_warning(val exc, struct args *args)
+{
+  (void) exc;
+  (void) args;
+  uw_throw(continue_s, nil);
+}
+
 void uw_push_cont_copy(uw_frame_t *fr, mem_t *ptr,
                        void (*copy)(mem_t *ptr, int parent))
 {