flip word tweak

2006-10-26 04:07:39 +00:00 · 2006-10-26 04:07:39 +00:00 · 5ead538e90
parent 7ce12846cb
commit 5ead538e90
1 changed files with 2 additions and 2 deletions
--- 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 )