hans/racket-audio
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

error handling code/msg mixed.

Browse Source
This commit is contained in:
Hans Dijkema
2026-07-07 11:49:10 +02:00
parent 109e8ee3ad
commit 15ef81d30a
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
audio-player.rkt
+2 -2
View File
@@ -90,8 +90,8 @@
(let ((r (car ret))) (let ((r (car ret)))
(displayln ret) (displayln ret)
(if (eq? r 'error) (if (eq? r 'error)
(let ((code (cadr ret)) (let ((msg (cadr ret))
(msg (caddr ret))) (code (caddr ret)))
(err-sound "Got an error: ~a - ~a" code msg) (err-sound "Got an error: ~a - ~a" code msg)
(make-internal-audio-retval 'error code msg 'error)) (make-internal-audio-retval 'error code msg 'error))
(make-internal-audio-retval 'retval #f #f r)))) (make-internal-audio-retval 'retval #f #f r))))