game-of-life: use row directly in next-step.

diff --git a/extra/game-of-life/game-of-life.factor b/extra/game-of-life/game-of-life.factor
index fd3b62d1b09e6a997a3248f6f7bfb3a7e20e7a5d..0326c74ffef6e97e0d450dd09d0e5b6ed26d3374 100644 (file)
--- a/extra/game-of-life/game-of-life.factor
+++ b/extra/game-of-life/game-of-life.factor
@@ -56,15 +56,9 @@ IN: game-of-life
         row { bit-array } declare [| cell i |
             i neighbor-row nth-unsafe
             cell [
-                2 3 between? i j grid
-                { array } declare nth-unsafe
-                { bit-array } declare set-nth-unsafe
+                2 3 between? i row set-nth-unsafe
             ] [
-                3 = [
-                    t i j grid
-                    { array } declare nth-unsafe
-                    { bit-array } declare set-nth-unsafe
-                ] when
+                3 = [ t i row set-nth-unsafe ] when
             ] if
         ] each-index
     ] each-index ;