diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2011-10-21 20:08:36 -0400 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2011-10-21 20:08:36 -0400 |
commit | d1cd4c2cd7957cb22282905f7a41cd34b6db08ed (patch) | |
tree | 77aac623e4e9233fd08ee67930c6cee6abd2d92a | |
parent | 7b0ce1eddae8284274e4a5c9fc7062dd1c535a56 (diff) | |
download | txr-d1cd4c2cd7957cb22282905f7a41cd34b6db08ed.tar.gz txr-d1cd4c2cd7957cb22282905f7a41cd34b6db08ed.tar.bz2 txr-d1cd4c2cd7957cb22282905f7a41cd34b6db08ed.zip |
* match.c (v_collect): Regression bugfix. Make it work like the comment
says: until/last clause has visibility to uncollated bindings from
collect.
-rw-r--r-- | ChangeLog | 6 | ||||
-rw-r--r-- | match.c | 2 |
2 files changed, 7 insertions, 1 deletions
@@ -1,5 +1,11 @@ 2011-10-21 Kaz Kylheku <kaz@kylheku.com> + * match.c (v_collect): Regression bugfix. Make it work like the comment + says: until/last clause has visibility to uncollated bindings from + collect. + +2011-10-21 Kaz Kylheku <kaz@kylheku.com> + Implementing @(set) directive for assigning to variables destructively. @@ -1919,7 +1919,7 @@ static val v_collect(match_files_ctx c, match_files_ctx *cout) { cons_bind (sym, ul_spec, until_last_spec); cons_bind (until_last_bindings, success, - match_files(mf_spec(c, ul_spec))); + match_files(mf_spec_bindings(c, ul_spec, new_bindings))); if (success) { debuglf(spec_linenum, lit("until/last matched ~a:~a"), |