math.matrices: fix unshaped-cols-iota to use (each-from)

diff --git a/basis/math/matrices/matrices.factor b/basis/math/matrices/matrices.factor
index eeddbc06cd0222434eba17da402d2d74b0a8ceb3..68cbfa4414f8b9d66e6394b52259e1e9a43e9f91 100644 (file)
--- a/basis/math/matrices/matrices.factor
+++ b/basis/math/matrices/matrices.factor
@@ -121,8 +121,8 @@ ALIAS: transpose flip
   first-unsafe length <iota> ; inline
 
 : unshaped-cols-iota ( matrix -- cols-iota )
-  [ first-unsafe length 1 ] keep
-  [ length min ] (each) (each-integer) <iota> ; inline
+  [ first-unsafe length ] keep
+  [ length min ] 1 (each-from) (each-integer) <iota> ; inline
 
 : generic-anti-transpose-unsafe ( cols-iota matrix -- newmatrix )
     [ <reversed> [ nth-end-unsafe ] with { } map-as ] curry { } map-as ; inline