summaryrefslogtreecommitdiffstats
path: root/match.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2011-10-21 20:08:36 -0400
committerKaz Kylheku <kaz@kylheku.com>2011-10-21 20:08:36 -0400
commitd1cd4c2cd7957cb22282905f7a41cd34b6db08ed (patch)
tree77aac623e4e9233fd08ee67930c6cee6abd2d92a /match.c
parent7b0ce1eddae8284274e4a5c9fc7062dd1c535a56 (diff)
downloadtxr-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.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/match.c b/match.c
index 1d415ac5..894f6d73 100644
--- a/match.c
+++ b/match.c
@@ -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"),