Minor optimization to flip

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 8c9eff94f514d2dfc1f52d3c915f478c0b74bd15..e36435992870da3b5c44eb742a76ca70ac619a5a 100644 (file)
--- 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 ;