math.matrices.elimination: avoid double length call.

2015-07-14 15:59:24 -07:00 · 2015-07-14 15:59:24 -07:00 · c89cdc4c67
parent 8ccb173da0
commit c89cdc4c67
1 changed files with 1 additions and 1 deletions
--- 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