From be0aa60ca1fda9d6402bec586d60cc49cb870e87 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 25 Jan 2017 20:06:29 -0800
Subject: 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.
---
 match.c  | 1 -
 unwind.c | 1 +
 2 files changed, 1 insertion(+), 1 deletion(-)

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;
 }
-- 
cgit v1.2.3