summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog6
-rw-r--r--match.c2
2 files changed, 7 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index ed4a062b..08547f46 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
2011-12-25 Kaz Kylheku <kaz@kylheku.com>
+ * 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.
+
+2011-12-25 Kaz Kylheku <kaz@kylheku.com>
+
* eval.c (eval_init): New function interned.
* lib.c:x (lazy_flatten_scan, lazy_flatten_func): New static functions.
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,