From 86f10aa563a75a4cce703970faf2940f4f537e13 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 16 Jul 2017 09:40:47 -0700 Subject: 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. --- match.c | 5 +++-- 1 file 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); } } -- cgit v1.2.3