From 68b427e387d19e92234c2d127981e754d996b90a Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 22 May 2024 08:01:14 -0400
Subject: [PATCH] Remove some pks.

---
 modules/game/actors.scm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/modules/game/actors.scm b/modules/game/actors.scm
index 8a8d9c1..2c0af90 100644
--- a/modules/game/actors.scm
+++ b/modules/game/actors.scm
@@ -255,14 +255,12 @@
        ('copper
         ;; TODO: Match other shapes? This only allows left-to-right
         ;; circuit flow.
-        (match (pk 'GRID ($ grid-info 'wireworld-neighbor-grid x y))
+        (match ($ grid-info 'wireworld-neighbor-grid x y)
           (#('electron-head #f #f
                             #f _ 'copper
                             'electron-head #f #f)
-           (pk 'COOL)
            ($ state 'electron-head))
-          (_ ($ state 'copper)))))
-     (pk 'NEW-STATE ($ state)))
+          (_ ($ state 'copper))))))
     (('alive?) #t)
     (('describe) `(and-gate ,position))
     (('collide other offset grid-info) #f)))