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)))