sequences: add declaration so that array-flip compiles better
parent
eabaf9fc40
commit
4359a10259
|
@ -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>
|
||||
|
||||
|
|
Loading…
Reference in New Issue