sequences: add declaration so that array-flip compiles better

db4
Slava Pestov 2009-07-28 21:33:12 -05:00
parent eabaf9fc40
commit 4359a10259
1 changed files with 1 additions and 1 deletions

View File

@ -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>