txr: garbage in debug traces for failed pattern functions.

This was broken by a regression on Aug 23, 2015, by commit
a6fa35d2877745ba0b285093c40c1a3aad82a0e8, subject line:
"Use of new args for function calls in interpreter."

* match.c (h_fun, v_fun): Remove args only wrongly referenced
in a debugf call. The debugf call has not changed since 2011,
and originally referenced a more lexically outer args variable
of type val, which was wrongly shadowed. This causes garbage
to print in the debug traces like #<bad-float> instead of
the arguments.

1 files changed, 0 insertions, 2 deletions

diff --git a/match.c b/match.c
index 7830eb19..6c7bb6bf 100644
--- a/match.c
+++ b/match.c
@@ -1622,7 +1622,6 @@ static val h_fun(match_line_ctx *c)
     }
 
     {
-      args_decl_list(args, ARGS_MIN, bindings_cp);
       uw_block_begin(nil, result);
       uw_match_env_begin;
       uw_simple_catch_begin;
@@ -4557,7 +4556,6 @@ static val v_fun(match_files_ctx *c)
     }
 
     {
-      args_decl_list(args, ARGS_MIN, bindings_cp);
       uw_block_begin(nil, result);
       uw_match_env_begin;