diff options
| -rw-r--r-- | ChangeLog | 11 | ||||
| -rw-r--r-- | match.c | 3 |
2 files changed, 12 insertions, 2 deletions
@@ -1,5 +1,16 @@ 2011-11-13 Kaz Kylheku <kaz@kylheku.com> + 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 <kaz@kylheku.com> + * match.c: Removed <assert.h> * txr.c: Likewise. @@ -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)); |