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

error debugging

Browse Source
This commit is contained in:
Hans Dijkema
2026-07-07 10:29:25 +02:00
parent e8e0135dd8
commit a9ad9bed2a
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
audio-player.rkt
+2 -1
View File
@@ -87,6 +87,7 @@
(if (null? ret) (if (null? ret)
(raise-audio-error 'audio-error "audio-player: no return value, empty list returned") (raise-audio-error 'audio-error "audio-player: no return value, empty list returned")
(let ((r (car ret))) (let ((r (car ret)))
(displayln ret)
(if (eq? r 'error) (if (eq? r 'error)
(let ((code (cadr ret)) (let ((code (cadr ret))
(msg (caddr ret))) (msg (caddr ret)))
@@ -267,7 +268,7 @@
(syntax-rules () (syntax-rules ()
((_ handle cmd args ...) ((_ handle cmd args ...)
(let ((rv ((audio-play-rpc handle) cmd args ...))) (let ((rv ((audio-play-rpc handle) cmd args ...)))
(display rv) (displayln rv)
(if (eq? (internal-audio-retval-kind rv) 'error) (if (eq? (internal-audio-retval-kind rv) 'error)
(raise-audio-error (internal-audio-retval-code rv) (internal-audio-retval-info rv)) (raise-audio-error (internal-audio-retval-code rv) (internal-audio-retval-info rv))
(internal-audio-retval-retval rv)))) (internal-audio-retval-retval rv))))