Fix comments to be ! not #!.

[factor.git] / basis / math / statistics / statistics.factor

diff --git a/basis/math/statistics/statistics.factor b/basis/math/statistics/statistics.factor
index a31da06a1a5caecf30f5b91805a1a8eb9e91e536..fc25c01a06825b6959cc5acfef330ebeb763aecd 100644 (file)
--- a/basis/math/statistics/statistics.factor
+++ b/basis/math/statistics/statistics.factor
@@ -61,7 +61,7 @@ PRIVATE>
 <PRIVATE
 
 :: ((kth-object)) ( seq k nth-quot exchange-quot quot: ( x y -- ? ) -- elt )
-    #! Wirth's method, Algorithm's + Data structues = Programs p. 84
+    ! Wirth's method, Algorithm's + Data structues = Programs p. 84
     k seq bounds-check 2drop
     0 :> i!
     0 :> j!
@@ -90,7 +90,7 @@ PRIVATE>
     k seq nth-unsafe ; inline
 
 : (kth-object) ( seq k nth-quot exchange-quot quot: ( x y -- ? ) -- elt )
-    #! The algorithm modifiers seq, so we clone it
+    ! The algorithm modifiers seq, so we clone it
     [ >array ] 4dip ((kth-object)) ; inline
 
 : kth-object-unsafe ( seq k quot: ( x y -- ? ) -- elt )