game-of-life: fix inevitable bug in faster code.

diff --git a/extra/game-of-life/game-of-life.factor b/extra/game-of-life/game-of-life.factor
index 76467c2daa382ee8f1d666f1036744066bc31601..d03fa2fe0ae5b3a8244ca36dd4e94efa21aaff26 100644 (file)
--- a/extra/game-of-life/game-of-life.factor
+++ b/extra/game-of-life/game-of-life.factor
@@ -25,7 +25,7 @@ IN: game-of-life
                     [ i fixnum+fast ] [ j fixnum+fast ] bi*
                     { fixnum fixnum } declare :> ( col row )
                     {
-                        [ col i = not ] [ row i = not ]
+                        [ col i = row j = and not ]
                         [ col 0 >= ] [ col cols < ]
                         [ row 0 >= ] [ row rows < ]
                     } 0&& [
@@ -166,7 +166,7 @@ SYMBOL: last-click
     ] when ;
 
 :: com-clear ( gadget -- )
-    gadget grid>> [ seq>> clear-bits ] each
+    gadget grid>> [ clear-bits ] each
     gadget relayout-1 ;
 
 :: com-random ( gadget -- )