From 5b461c68e3194aef85bd175d51a30f205adb327f Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Thu, 16 Apr 2020 22:01:22 -0400
Subject: Day 6 progress.

---
 lisparuga.scm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lisparuga.scm')

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
-- 
cgit v1.2.3