problems with values.
This commit is contained in:
@@ -266,6 +266,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 ...)))
|
||||||
|
(displayln (internal-audio-retval-retval 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))))
|
||||||
|
|||||||
Reference in New Issue
Block a user