Registering tentative def must purge warning.

* match.c (match_reg_var): No need to call
uw_purge_deferred_warning here any more.

* unwind.c (uw_register_tentative_def): Purge any
deferred warnings for the tag.

2 files changed, 1 insertions, 1 deletions

diff --git a/match.c b/match.c
index 180eee87..0a819841 100644
--- a/match.c
+++ b/match.c
@@ -4410,7 +4410,6 @@ void match_reg_var(val sym)
 {
   if (bindable(sym) && !uw_tentative_def_exists(sym)) {
     val tag = cons(var_s, sym);
-    uw_purge_deferred_warning(tag);
     uw_register_tentative_def(tag);
   }
 }
diff --git a/unwind.c b/unwind.c
index 34e1126e..9b5b26e2 100644
--- a/unwind.c
+++ b/unwind.c
@@ -684,6 +684,7 @@ val uw_defer_warning(val args)
 
 val uw_register_tentative_def(val tag)
 {
+  uw_purge_deferred_warning(tag);
   push(tag, &tentative_defs);
   return nil;
 }