Fix comments to be ! not #!.

[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 021e0867459d200b969ca63d6e5de34e7eef8602..73c46730a22b5e8135f8b6308d70a1c49fca528f 100644 (file)
--- a/basis/math/matrices/elimination/elimination.factor
+++ b/basis/math/matrices/elimination/elimination.factor
@@ -24,7 +24,7 @@ SYMBOL: matrix
     over [ find-from drop ] dip swap [ nip ] [ length ] if* ; inline
 
 : first-col ( row# -- n )
-    #! First non-zero column
+    ! First non-zero column
     0 swap nth-row [ zero? not ] skip ;
 
 : clear-scale ( col# pivot-row i-row -- n )