summaryrefslogtreecommitdiffstats
path: root/match.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2009-11-03 07:56:53 -0800
committerKaz Kylheku <kaz@kylheku.com>2009-11-03 07:56:53 -0800
commite39f2236ea3f1b2b50bbed65ec33ad4f56f409cb (patch)
tree3dffdfa3f6fda78c37f48170f1f04a1c1cf989a4 /match.c
parentca9d02bcb0db425218734d5434f124be7a66b3b3 (diff)
downloadtxr-e39f2236ea3f1b2b50bbed65ec33ad4f56f409cb.tar.gz
txr-e39f2236ea3f1b2b50bbed65ec33ad4f56f409cb.tar.bz2
txr-e39f2236ea3f1b2b50bbed65ec33ad4f56f409cb.zip
Version 019txr-019
Regexps can be bound to variables. New freeform directive.
Diffstat (limited to 'match.c')
-rw-r--r--match.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/match.c b/match.c
index 3df2c08a..15e98a08 100644
--- a/match.c
+++ b/match.c
@@ -888,7 +888,7 @@ obj_t *match_files(obj_t *spec, obj_t *files,
obj_t *first_spec_item = second(first(spec));
if (consp(first_spec_item) && eq(first(first_spec_item), next)) {
- debugf("not opening source ~a since query starts with next directive",
+ debugf("not opening source ~a since query starts with next directive",
name, nao);
} else {
debugf("opening data source ~a", name, nao);
@@ -983,8 +983,8 @@ repeat_spec_same_data:
}
} else if (sym == freeform) {
obj_t *args = rest(first_spec);
- obj_t *vals = mapcar(func_n1(cdr),
- mapcar(bind2other(func_n2(eval_form),
+ obj_t *vals = mapcar(func_n1(cdr),
+ mapcar(bind2other(func_n2(eval_form),
bindings), args));
if ((spec = rest(spec)) == nil) {
@@ -1063,7 +1063,7 @@ repeat_spec_same_data:
else if (eq(first(source), args)) {
obj_t *input_name = string("args");
cons_bind (new_bindings, success,
- match_files(spec, cons(input_name, files),
+ match_files(spec, cons(input_name, files),
bindings, files, one));
if (success)
return cons(new_bindings,