sequences: add declaration so that array-flip compiles better
parent
eabaf9fc40
commit
4359a10259
|
@ -927,7 +927,7 @@ USE: arrays
|
||||||
: array-flip ( matrix -- newmatrix )
|
: array-flip ( matrix -- newmatrix )
|
||||||
{ array } declare
|
{ array } declare
|
||||||
[ dup first array-length [ array-length min ] reduce ] keep
|
[ 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>
|
PRIVATE>
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue