diff options
| author | David Thompson <dthompson2@worcester.edu> | 2016-01-11 08:48:45 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2016-01-12 08:38:51 -0500 |
| commit | 6db364cb0c9f1bd421b8f35671cc0646b9f6f848 (patch) | |
| tree | 1727584663811bb9b58abe1e0970d8762a4430a8 | |
| parent | ffaf8f29987353a20fb47cfb681b64559f1fbda5 (diff) | |
audio: Add #:loop? argument to play-music.
* sly/audio.scm (play-music): Add #:loop? keyword argument.
| -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." |