This commit is contained in:
David Botton 2021-01-17 12:38:44 -05:00
parent d06ce51f44
commit ec00aa70de

View file

@ -119,9 +119,9 @@
(setf (snake app) (butlast (snake app)))))
(fill-style cx :brown)
(draw-segment (food app)))
(draw-segment (food app))))
game-over))))
game-over)))
(defun on-key-down (obj event)
(let ((app (connection-data-item obj "app-data"))