From 5ead538e90aa9f9698c36952566a1e3d93ef1e31 Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Thu, 26 Oct 2006 04:07:39 +0000
Subject: [PATCH] flip word tweak

---
 library/collections/sequences-epilogue.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/library/collections/sequences-epilogue.factor b/library/collections/sequences-epilogue.factor
index 82c0fb39e1..f9fbf98166 100644
--- a/library/collections/sequences-epilogue.factor
+++ b/library/collections/sequences-epilogue.factor
@@ -105,8 +105,8 @@ M: object like drop ;
 
 : flip ( matrix -- newmatrix )
     dup empty? [
-        dup first [ length ] keep like
-        [ <column> dup like ] map-with
+        dup first [ length [ <column> dup like ] map-with ] keep
+        like
     ] unless ;
 
 : unpair ( assoc -- keys values )