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
|
('copper
|
||||||
;; TODO: Match other shapes? This only allows left-to-right
|
;; TODO: Match other shapes? This only allows left-to-right
|
||||||
;; circuit flow.
|
;; circuit flow.
|
||||||
(match (pk 'GRID ($ grid-info 'wireworld-neighbor-grid x y))
|
(match ($ grid-info 'wireworld-neighbor-grid x y)
|
||||||
(#('electron-head #f #f
|
(#('electron-head #f #f
|
||||||
#f _ 'copper
|
#f _ 'copper
|
||||||
'electron-head #f #f)
|
'electron-head #f #f)
|
||||||
(pk 'COOL)
|
|
||||||
($ state 'electron-head))
|
($ state 'electron-head))
|
||||||
(_ ($ state 'copper)))))
|
(_ ($ state 'copper))))))
|
||||||
(pk 'NEW-STATE ($ state)))
|
|
||||||
(('alive?) #t)
|
(('alive?) #t)
|
||||||
(('describe) `(and-gate ,position))
|
(('describe) `(and-gate ,position))
|
||||||
(('collide other offset grid-info) #f)))
|
(('collide other offset grid-info) #f)))
|
||||||
|
|
Loading…
Add table
Reference in a new issue