diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2012-01-09 15:44:50 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2012-01-09 15:44:50 -0800 |
commit | 9fa74517eb0b8252e88f4c636e6e93bca0c9f0be (patch) | |
tree | a14a84ec104a7f625cc9a4c70f2894f8904f2643 /match.h | |
parent | d8df8beb2e00517a546d753586d67e14ffa4611d (diff) | |
download | txr-9fa74517eb0b8252e88f4c636e6e93bca0c9f0be.tar.gz txr-9fa74517eb0b8252e88f4c636e6e93bca0c9f0be.tar.bz2 txr-9fa74517eb0b8252e88f4c636e6e93bca0c9f0be.zip |
Non-broken way to achieve intent of previous commit.
* eval.c (subst_vars): Do not evaluate modifiers
as an argument list locally. Pass form-evaluating
function to format_field.
* match.c (format_field): Modified to accept new argument,
a one-argument function for reducing a form to a value.
Error checking for invalid modifiers made stricter.
(subst_vars): Do not evaluate modifiers as an argument
list. Pass form-evaluating function to format_field.
* match.h (format_field): Declaration updated.
Diffstat (limited to 'match.h')
-rw-r--r-- | match.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -25,7 +25,7 @@ */ extern val text_s, choose_s, gather_s, do_s, mod_s, modlast_s, counter_k; -val format_field(val string_or_list, val modifier, val filter); +val format_field(val string_or_list, val modifier, val filter, val eval_fun); val match_funcall(val name, val arg, val other_args); int extract(val spec, val filenames, val bindings); void match_init(void); |