patch-seq

2015-10-27 10:13:08 -04:00 · 2015-10-27 10:13:08 -04:00 · 6aa14d1068
parent f9015cbf23
commit 6aa14d1068
1 changed files with 2 additions and 2 deletions
--- a/examples/platformer/game.rkt
+++ b/examples/platformer/game.rkt
@ -352,8 +352,8 @@
           (match e
             [(message (add-to-score delta))
              (transition (+ s delta)
-                          (retract (current-score ?))
-                          (assert (current-score delta)))]
+                          (patch-seq (retract (current-score ?))
+                                     (assert (current-score delta))))]
             [_ #f]))
         0
         (sub (add-to-score ?))))