Remove some pks.

This commit is contained in:
David Thompson 2024-05-22 08:01:14 -04:00
parent 5756844161
commit 68b427e387

View file

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