From 03511c1af9217b9a18e6fc3b85fb8f2a62488322 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 25 Dec 2011 00:51:15 -0800
Subject: * 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.

---
 match.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'match.c')

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,
-- 
cgit v1.2.3