From 18a3bd0c4c7dbbb667cbfde9fdb68b5b5dfc869f Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 11 Mar 2018 17:05:47 -0700
Subject: [PATCH] game-of-life: use row directly in next-step.

---
 extra/game-of-life/game-of-life.factor | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

diff --git a/extra/game-of-life/game-of-life.factor b/extra/game-of-life/game-of-life.factor
index fd3b62d1b0..0326c74ffe 100644
--- 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 ;