* 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.

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,