From 6db364cb0c9f1bd421b8f35671cc0646b9f6f848 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Mon, 11 Jan 2016 08:48:45 -0500 Subject: audio: Add #:loop? argument to play-music. * sly/audio.scm (play-music): Add #:loop? keyword argument. --- sly/audio.scm | 4 ++-- 1 file 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." -- cgit v1.2.3