diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2009-11-18 22:02:02 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2009-11-18 22:02:02 -0800 |
commit | 9eddf1e4e0482ca8db81fcc4411fadd01190476c (patch) | |
tree | 48b39075e79160429c39f7e98fbfe2e0d1a70deb /match.c | |
parent | e4edb9aff778c683d81892cca705013dbe5dcc58 (diff) | |
download | txr-9eddf1e4e0482ca8db81fcc4411fadd01190476c.tar.gz txr-9eddf1e4e0482ca8db81fcc4411fadd01190476c.tar.bz2 txr-9eddf1e4e0482ca8db81fcc4411fadd01190476c.zip |
* match.c (match_line, match_files): Fix broken behavior of collect
that doesn't match anything.
Diffstat (limited to 'match.c')
-rw-r--r-- | match.c | 8 |
1 files changed, 2 insertions, 6 deletions
@@ -471,10 +471,8 @@ obj_t *match_line(obj_t *bindings, obj_t *specline, obj_t *dataline, } - if (!bindings_coll) { + if (!bindings_coll) debuglf(spec_lineno, lit("nothing was collected"), nao); - return nil; - } for (iter = bindings_coll; iter; iter = cdr(iter)) { obj_t *pair = car(iter); @@ -1289,10 +1287,8 @@ repeat_spec_same_data: return nil; } - if (!bindings_coll) { + if (!bindings_coll) debuglf(spec_linenum, lit("nothing was collected"), nao); - return nil; - } for (iter = bindings_coll; iter; iter = cdr(iter)) { obj_t *pair = car(iter); |