From 82fa68d0759294a1c32fa61545c0d75121c326f6 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 28 Jul 2009 21:33:12 -0500
Subject: [PATCH] sequences: add declaration so that array-flip compiles better

---
 core/sequences/sequences.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 55d4bc9be9..17dbcf5c3c 100755
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -927,7 +927,7 @@ USE: arrays
 : array-flip ( matrix -- newmatrix )
     { array } declare
     [ dup first array-length [ array-length min ] reduce ] keep
-    [ [ array-nth ] with { } map-as ] curry { } map-as ;
+    [ [ { array } declare array-nth ] with { } map-as ] curry { } map-as ;
 
 PRIVATE>