diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2011-11-13 20:32:53 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2011-11-13 20:32:53 -0800 |
commit | cc0f30f375914382e9e94e5bba26b14b2a734499 (patch) | |
tree | d686918d0b323372eef34ca99b6f2901df7d8144 /match.c | |
parent | de47b27d3ee8f4227fc6e1be524ce6466f382c5e (diff) | |
download | txr-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.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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)); |