death: Do loop music.

1 files changed, 2 insertions, 5 deletions

diff --git a/scenes/death.scm b/scenes/death.scm
index e1438e1..3c1377e 100644
--- a/scenes/death.scm
+++ b/scenes/death.scm
@@ -45,7 +45,6 @@
 (define-asset game-font
   (load-bitmap-font "assets/fonts/good_neighbors_starling.xml"))
 (define-asset music
-  ;; TODO: no sound if mode is 'static! 
   (load-audio "assets/music/death.ogg" #:mode 'stream))
 
 
@@ -143,10 +142,8 @@ quite short."))
   (set! death-text (list-ref texts (random (length texts))))
   (source-stop)
   (source-play
-   (make-source #:audio
-                (asset-ref music)
-                #:loop? #false ; TODO: loops only first chunk!
-                ))
+   (make-source #:audio (asset-ref music)
+                #:loop? #true))
   
   (set! *player* (lorenzo #:start-position
                           (vec2 (+ (/ %width 2) 25)