diff options
| -rw-r--r-- | sly/audio.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/sly/audio.scm b/sly/audio.scm index 4f24e43..5a437a9 100644 --- a/sly/audio.scm +++ b/sly/audio.scm @@ -98,9 +98,9 @@ value between 0 and 128." between 0 and 128." (ignore-value (sdl2:set-music-volume! volume))) -(define (play-music music) +(define* (play-music music #:key loop?) "Play the given MUSIC." - (sdl2:play-music! (music-audio music))) + (sdl2:play-music! (music-audio music) (if loop? #f 1))) (define (pause-music) "Pause the current music track." |