]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/reports/noise/noise.factor
Fix comments to be ! not #!.
[factor.git] / extra / reports / noise / noise.factor
index 8f30dd4244454b27b9cbb98694ddd7e88f027e56..3f4090c118a755d6aebf1bb202683c376f0c227b 100644 (file)
@@ -87,8 +87,8 @@ M: array noise [ noise ] map vsum ;
 : noise-factor ( x y -- z ) / 100 * >integer ;
 
 : quot-noise-factor ( quot -- n )
-    #! For very short words, noise doesn't count so much
-    #! (so dup foo swap bar isn't penalized as badly).
+    ! For very short words, noise doesn't count so much
+    ! (so dup foo swap bar isn't penalized as badly).
     noise first2 {
         { [ over 4 <= ] [ [ drop 0 ] dip ] }
         { [ over 15 >= ] [ [ 2 * ] dip ] }