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.

1 files changed, 8 insertions, 0 deletions

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))
 {