core: Add the shuffler words but without primitives.

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

diff --git a/basis/math/matrices/elimination/elimination.factor b/basis/math/matrices/elimination/elimination.factor
index d9117f023f53683fd3ee7bc83f8fbe2195fb3dd4..244cf2f42f8bf1939b77e44b1d1535aa6614e71b 100644 (file)
--- a/basis/math/matrices/elimination/elimination.factor
+++ b/basis/math/matrices/elimination/elimination.factor
@@ -28,7 +28,7 @@ SYMBOL: matrix
     0 swap nth-row [ zero? not ] skip ;
 
 : clear-scale ( col# pivot-row i-row -- n )
-    [ over ] dip nth dup zero? [
+    overd nth dup zero? [
         3drop 0
     ] [
         [ nth dup zero? ] dip swap [