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 /match.c | |
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.
Diffstat (limited to 'match.c')
-rw-r--r-- | match.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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"), |