summaryrefslogtreecommitdiff
path: root/lisparuga.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@vistahigherlearning.com>2020-04-16 22:01:22 -0400
committerDavid Thompson <dthompson@vistahigherlearning.com>2020-04-16 22:01:22 -0400
commit5b461c68e3194aef85bd175d51a30f205adb327f (patch)
tree0617cbd709fa6fa2be042dcb30ec541d540f0ba6 /lisparuga.scm
parentf08e14fd51e2b1f5920ac6816774c5e72cbee5c0 (diff)
Day 6 progress.
Diffstat (limited to 'lisparuga.scm')
-rw-r--r--lisparuga.scm1
1 files changed, 1 insertions, 0 deletions
diff --git a/lisparuga.scm b/lisparuga.scm
index e5fb888..06949cc 100644
--- a/lisparuga.scm
+++ b/lisparuga.scm
@@ -83,6 +83,7 @@
(start-stage (& lisparuga game)))
(define-method (game-over-transition (lisparuga <lisparuga>))
+ (stop-stage (& lisparuga game))
(set! (state lisparuga) 'game-over)
(let ((game-over (make <node-2d>
#:name 'game-over