Remove some pks.
This commit is contained in:
parent
5756844161
commit
68b427e387
1 changed files with 2 additions and 4 deletions
|
@ -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)))
|
||||
|
|
Loading…
Add table
Reference in a new issue