From 68b427e387d19e92234c2d127981e754d996b90a Mon Sep 17 00:00:00 2001 From: David Thompson 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)))