cleaning

2 files changed, 2 insertions, 10 deletions

diff --git a/assets.lisp b/assets.lisp
index 7109559..823d99b 100644
--- a/assets.lisp
+++ b/assets.lisp
@@ -87,6 +87,7 @@
 
 
 (defun free-assets ()
+  (harmony-simple:stop *current-track*)
   (sdl2:destroy-texture *nance-texture*)
   (sdl2:destroy-texture *normy-texture*)
   (sdl2:destroy-texture *suit-texture*))
diff --git a/the-price-of-a-cup-of-coffee.lisp b/the-price-of-a-cup-of-coffee.lisp
index 35d51f2..1c47208 100644
--- a/the-price-of-a-cup-of-coffee.lisp
+++ b/the-price-of-a-cup-of-coffee.lisp
@@ -501,27 +501,18 @@
        (sdl2:with-init (:everything)
          (sdl2:with-window (win :w 1024 :h 600 :title "The Price Of A Cup Of Coffee" :flags '(:shown))
            (sdl2:with-renderer (renderer win :flags '(:accelerated))
-
              (boot-up renderer)
-
              (sdl2:with-event-loop (:method :poll)
-
                (:keydown (:keysym keysym)
                          (if (sdl2:scancode= (sdl2:scancode-value keysym) :scancode-escape)
                              (sdl2:push-event :quit)
                              (handle-keydown keysym)))
-
                (:keyup (:keysym keysym)  (handle-keyup keysym))
-
                (:idle ()
                       (update :game (sdl2:get-ticks))
                       (render :game renderer)
-
                       (sdl2:delay +frame-delay+))
-
-               (:quit ()
-                                        ;                 (harmony-simple:stop *current-track*)
-                      t)))))
+               (:quit () t)))))
     (free-assets)))