syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

patch-seq

This commit is contained in:
Sam Caldwell 2015-10-27 10:13:08 -04:00
parent f9015cbf23
commit 6aa14d1068
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/platformer/game.rkt
View File

@ -352,8 +352,8 @@
(match e (match e
[(message (add-to-score delta)) [(message (add-to-score delta))
(transition (+ s delta) (transition (+ s delta)
(retract (current-score ?)) (patch-seq (retract (current-score ?))
(assert (current-score delta)))] (assert (current-score delta))))]
[_ #f])) [_ #f]))
0 0
(sub (add-to-score ?)))) (sub (add-to-score ?))))