Factor source files should not be executable

[factor.git] / basis / math / matrices / elimination / elimination.factor

diff --git a/basis/math/matrices/elimination/elimination.factor b/basis/math/matrices/elimination/elimination.factor
old mode 100755 (executable)
new mode 100644 (file)
index 5c154a6..4dc29ad
--- a/basis/math/matrices/elimination/elimination.factor
+++ b/basis/math/matrices/elimination/elimination.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2006, 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: kernel locals math math.vectors math.matrices
-namespaces sequences ;
+namespaces sequences fry sorting ;
 IN: math.matrices.elimination
 
 SYMBOL: matrix
@@ -52,11 +52,8 @@ SYMBOL: matrix
     [ first-col ] keep
     dup 1 + rows-from clear-col ;
 
-: find-row ( row# quot -- i elt )
-    [ rows-from ] dip find ; inline
-
 : pivot-row ( col# row# -- n )
-    [ dupd nth-row nth zero? not ] find-row 2nip ;
+    rows-from swap '[ [ _ ] dip nth-row nth abs ] sort-with last ;
 
 : (echelon) ( col# row# -- )
     over cols < over rows < and [