From cc0f30f375914382e9e94e5bba26b14b2a734499 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 13 Nov 2011 20:32:53 -0800 Subject: Fix regression in earlier commit: "Eliminate line numbers from the abstract syntax tree representation of the TXR query." * match.c (match_funcall): Remove spurious object being added to the front of a form where a line number used to be. --- ChangeLog | 11 +++++++++++ match.c | 3 +-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 35283689..95aeb3a1 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,14 @@ +2011-11-13 Kaz Kylheku + + Fix regression in earlier commit: + + "Eliminate line numbers from the abstract syntax + tree representation of the TXR query." + + * match.c (match_funcall): Remove spurious object being + added to the front of a form where a line number used + to be. + 2011-11-13 Kaz Kylheku * match.c: Removed diff --git a/match.c b/match.c index 3f586a5d..a26f8191 100644 --- a/match.c +++ b/match.c @@ -3038,8 +3038,7 @@ val match_funcall(val name, val arg, val other_args) val in_arg_sym = make_sym(lit("in_arg")); val out_arg_sym = make_sym(lit("out_arg")); val bindings = cons(cons(in_arg_sym, arg), in_bindings); - val spec = cons(list(specline, - cons(name, + val spec = cons(list(cons(name, cons(in_arg_sym, cons(out_arg_sym, other_args))), nao), nil); match_files_ctx c = mf_all(spec, nil, bindings, nil, num(0)); -- cgit v1.2.3