From c89cdc4c67c555e669435322fe2c7c83a0bf89d3 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 14 Jul 2015 15:59:24 -0700 Subject: [PATCH] math.matrices.elimination: avoid double length call. --- basis/math/matrices/elimination/elimination.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/math/matrices/elimination/elimination.factor b/basis/math/matrices/elimination/elimination.factor index 168274a12e..1d00a55dea 100644 --- a/basis/math/matrices/elimination/elimination.factor +++ b/basis/math/matrices/elimination/elimination.factor @@ -21,7 +21,7 @@ SYMBOL: matrix : cols ( -- n ) 0 nth-row length ; : skip ( i seq quot -- n ) - over [ find-from drop ] dip length or ; inline + over [ find-from drop ] dip swap [ nip ] [ length ] if* ; inline : first-col ( row# -- n ) #! First non-zero column