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. --- match.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'match.c') 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