bugfix: pattern language undefined warning system.

* match.c (match_reg_var): The uw_tentative_def_exists
check is being made against a symbol rather than the
tag. This check will always fail. There is no ill consequence.
Just that uw_register_tentative_def will be called
redundantly when it doesn't have to be.

1 files changed, 3 insertions, 2 deletions

diff --git a/match.c b/match.c
index e137d8e3..c77a4e7d 100644
--- a/match.c
+++ b/match.c
@@ -4687,9 +4687,10 @@ val extract(val spec, val files, val predefined_bindings)
 
 void match_reg_var(val sym)
 {
-  if (bindable(sym) && !uw_tentative_def_exists(sym)) {
+  if (bindable(sym)) {
     val tag = cons(var_s, sym);
-    uw_register_tentative_def(tag);
+    if (!uw_tentative_def_exists(tag))
+      uw_register_tentative_def(tag);
   }
 }