summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2016-01-11 08:48:45 -0500
committerDavid Thompson <dthompson2@worcester.edu>2016-01-12 08:38:51 -0500
commit6db364cb0c9f1bd421b8f35671cc0646b9f6f848 (patch)
tree1727584663811bb9b58abe1e0970d8762a4430a8
parentffaf8f29987353a20fb47cfb681b64559f1fbda5 (diff)
audio: Add #:loop? argument to play-music.
* sly/audio.scm (play-music): Add #:loop? keyword argument.
-rw-r--r--sly/audio.scm4
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."