Fix comments to be ! not #!.

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

diff --git a/basis/math/functions/functions.factor b/basis/math/functions/functions.factor
index 22e07db9844cb13a90636e87696d691e9133b2c4..640f28be7b60eaf7202607561eb67b7e7d9a02cb 100644 (file)
--- a/basis/math/functions/functions.factor
+++ b/basis/math/functions/functions.factor
@@ -11,7 +11,7 @@ M: real sqrt
     [ neg fsqrt [ 0.0 ] dip rect> ] [ fsqrt ] if ; inline
 
 : factor-2s ( n -- r s )
-    #! factor an integer into 2^r * s
+    ! factor an integer into 2^r * s
     dup 0 = [ 1 ] [
         [ 0 ] dip [ dup even? ] [ [ 1 + ] [ 2/ ] bi* ] while
     ] if ; inline