diff options
| -rw-r--r-- | sly/audio.scm | 4 |
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> |