Move main.rkt --> lll-main.rkt

This commit is contained in:
Tony Garnock-Jones 2016-07-30 17:06:32 -04:00
parent 4dad3e9661
commit 8f0ba7625b
1 changed files with 0 additions and 1 deletions

View File

@ -387,7 +387,6 @@
(define new-score (+ s delta))
(log-info "Score increased by ~a to ~a" delta new-score)
(play-sound-sequence 270304)
(define message (text (format "Score: ~a" new-score) 24 "white"))
(transition new-score
(patch-seq (retract (current-score ?))
(assert (current-score delta))