summaryrefslogtreecommitdiffstats
path: root/match.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2011-12-25 00:51:15 -0800
committerKaz Kylheku <kaz@kylheku.com>2011-12-25 00:51:15 -0800
commit03511c1af9217b9a18e6fc3b85fb8f2a62488322 (patch)
treed52987a226ac9c6f09be8635ac88ce601fc86e1d /match.c
parent894aec019d3ce82f861a5777236ac079c2f2388d (diff)
downloadtxr-03511c1af9217b9a18e6fc3b85fb8f2a62488322.tar.gz
txr-03511c1af9217b9a18e6fc3b85fb8f2a62488322.tar.bz2
txr-03511c1af9217b9a18e6fc3b85fb8f2a62488322.zip
* match.c (v_next): Change flatten to lazy_flatten in the
correct place. In the previous commit I did it in the code that handles the obsolescent :var syntax.
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 715bf112..6fb87b2d 100644
--- a/match.c
+++ b/match.c
@@ -1985,7 +1985,7 @@ static val v_next(match_files_ctx *c)
val list_val = txeval(specline, list_expr, c->bindings);
cons_bind (new_bindings, success,
match_files(mf_file_data(*c, lit("var"),
- flatten(list_val), num(1))));
+ lazy_flatten(list_val), num(1))));
if (success)
return cons(new_bindings,