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

Dus...

Browse Source
This commit is contained in:
Hans Dijkema
2026-07-07 11:54:48 +02:00
parent 15ef81d30a
commit dc144b2f9f
2 changed files with 0 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files
audio-player.rkt
-8
View File
@@ -70,7 +70,6 @@
(<= p n))))
(define (is-return? retval sym)
;(displayln retval)
(if (list? retval)
(if (null? retval)
#f
@@ -83,12 +82,10 @@
)
(define (to-ret-value ret)
(displayln ret)
(if (list? ret)
(if (null? ret)
(raise-audio-error 'audio-error "audio-player: no return value, empty list returned")
(let ((r (car ret)))
(displayln ret)
(if (eq? r 'error)
(let ((msg (cadr ret))
(code (caddr ret)))
@@ -269,11 +266,6 @@
(syntax-rules ()
((_ handle cmd args ...)
(let ((rv ((audio-play-rpc handle) cmd args ...)))
(displayln rv)
(displayln (internal-audio-retval-kind rv))
(displayln (internal-audio-retval-code rv))
(displayln (internal-audio-retval-info rv))
(displayln (internal-audio-retval-retval rv))
(if (eq? (internal-audio-retval-kind rv) 'error)
(raise-audio-error (internal-audio-retval-code rv) (internal-audio-retval-info rv))
(internal-audio-retval-retval rv))))