Fix comments to be ! not #!.

[factor.git] / extra / tetris / piece / piece.factor

diff --git a/extra/tetris/piece/piece.factor b/extra/tetris/piece/piece.factor
index 0a24b2033c30163ef122242d49d044c10edd4f83..b7b0b096ca2df7b407e71eb3753f328ea5aca423 100644 (file)
--- a/extra/tetris/piece/piece.factor
+++ b/extra/tetris/piece/piece.factor
@@ -16,11 +16,11 @@ TUPLE: piece
     piece new swap >>tetromino ;
 
 : (piece-blocks) ( piece -- blocks )
-    #! rotates the piece
+    ! rotates the piece
     [ rotation>> ] [ tetromino>> states>> ] bi nth ;
 
 : piece-blocks ( piece -- blocks )
-    #! rotates and positions the piece
+    ! rotates and positions the piece
     [ (piece-blocks) ] [ location>> ] bi [ v+ ] curry map ;
 
 : piece-width ( piece -- width )
@@ -36,7 +36,7 @@ TUPLE: piece
     [ [ <random-piece> ] curry ] keep [ <piece-llist> ] curry lazy-cons ;
 
 : modulo ( n m -- n )
-  #! -2 7 mod => -2, -2 7 modulo =>  5
+  ! -2 7 mod => -2, -2 7 modulo =>  5
   [ mod ] [ + ] [ mod ] tri ;
 
 : (rotate-piece) ( rotation inc n-states -- rotation' )