summaryrefslogtreecommitdiffstats
path: root/match.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2011-11-13 20:32:53 -0800
committerKaz Kylheku <kaz@kylheku.com>2011-11-13 20:32:53 -0800
commitcc0f30f375914382e9e94e5bba26b14b2a734499 (patch)
treed686918d0b323372eef34ca99b6f2901df7d8144 /match.c
parentde47b27d3ee8f4227fc6e1be524ce6466f382c5e (diff)
downloadtxr-cc0f30f375914382e9e94e5bba26b14b2a734499.tar.gz
txr-cc0f30f375914382e9e94e5bba26b14b2a734499.tar.bz2
txr-cc0f30f375914382e9e94e5bba26b14b2a734499.zip
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.
Diffstat (limited to 'match.c')
-rw-r--r--match.c3
1 files changed, 1 insertions, 2 deletions
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));