diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor index 8c9eff94f5..e364359928 100644 --- a/core/sequences/sequences.factor +++ b/core/sequences/sequences.factor @@ -845,9 +845,10 @@ PRIVATE> USE: arrays : array-length ( array -- len ) - { array } declare length>> ; + { array } declare length>> ; inline : array-flip ( matrix -- newmatrix ) + { array } declare [ dup first array-length [ array-length min ] reduce ] keep [ [ array-nth ] with { } map-as ] curry { } map-as ;