From c39c99e7d068ff71bfff86604df1bc6e58e95811 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 25 Jan 2022 10:07:08 -0800
Subject: [PATCH] math.matrices: fix unshaped-cols-iota to use (each-from)

---
 basis/math/matrices/matrices.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/math/matrices/matrices.factor b/basis/math/matrices/matrices.factor
index eeddbc06cd..68cbfa4414 100644
--- 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
-- 
2.34.1