]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/benchmark/fannkuch/fannkuch.factor
Fix comments to be ! not #!.
[factor.git] / extra / benchmark / fannkuch / fannkuch.factor
index 218aa9fd2af78366eb17d8b7bebfe4564861adbf..a81990aa3b22f03047d6ff42c9a1d11e80e67da8 100644 (file)
@@ -5,8 +5,8 @@ io prettyprint ;
 IN: benchmark.fannkuch
 
 : count ( quot: ( -- ? ) -- n )
-    #! Call quot until it returns false, return number of times
-    #! it was true
+    ! Call quot until it returns false, return number of times
+    ! it was true
     [ 0 ] dip '[ _ dip swap [ [ 1 + ] when ] keep ] loop ; inline
 
 : count-flips ( perm -- flip# )