From 0afe5fe6a1a279792194b5ccff317ee131f88f92 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 9 Feb 2017 11:07:18 -0800 Subject: Muffle only deferrable warnings in sys:expand. The problem is that if some macrology is performing its own expansion with sys:expand, and if all warnings are muffled in sys:expand, it means that some warnings will never be seen. Expansion is the last chance to produce warnings issued by macros. Once they are expanded, a redundant expansion pass won't issue the warnings any more. * eval.c (no_warn_expand); Use the uw_muffle_deferrable_warning handler isntead of uw_muffle_warnings. * unwind.c (uw_muffle_deferrable_warning): New function. * unwind.h (uw_muffle_deferrable_warning): Declared. --- unwind.c | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'unwind.c') diff --git a/unwind.c b/unwind.c index 742cb781..e3f661ca 100644 --- a/unwind.c +++ b/unwind.c @@ -428,6 +428,14 @@ val uw_muffle_warning(val exc, struct args *args) uw_throw(continue_s, nil); } +val uw_muffle_deferrable_warning(val exc, struct args *args) +{ + (void) exc; + if (args_count(args) == 2) + uw_throw(continue_s, nil); + return nil; +} + void uw_push_cont_copy(uw_frame_t *fr, mem_t *ptr, void (*copy)(mem_t *ptr, int parent)) { -- cgit v1.2.3