summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--sly/audio.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/sly/audio.scm b/sly/audio.scm
index bac3ab0..3e1164a 100644
--- a/sly/audio.scm
+++ b/sly/audio.scm
@@ -77,7 +77,9 @@ value between 0 and 128."
(define (play-sample sample)
"Play the given audio SAMPLE."
- (ignore-value (sdl2:play-chunk! (sample-audio sample))))
+ (ignore-value
+ (false-if-exception
+ (sdl2:play-chunk! (sample-audio sample)))))
;; Wrapper over SDL music objects.
(define-record-type <music>