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

audio play! bug fix.

Browse Source
This commit is contained in:
Hans Dijkema
2026-07-07 12:07:22 +02:00
parent a4d0ae76f0
commit 781a21a5d6
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
audio-player.rkt
+4 -2
View File
@@ -266,7 +266,6 @@
(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))))
@@ -275,7 +274,10 @@
(define/contract (audio-play! handle audio-file) (define/contract (audio-play! handle audio-file)
(-> audio-play? path-string? number?) (-> audio-play? path-string? number?)
(ap-rpc handle 'open audio-file)) (let ((r (ap-rpc handle 'play audio-file)))
(if (eq? (car r) 'ok)
(cadr r)
(raise-audio-error 'audio-error "audio-player: unexpected return value from 'play command: ~a" r))))
(define/contract (audio-pause! handle paused) (define/contract (audio-pause! handle paused)
(-> audio-play? boolean? symbol?) (-> audio-play? boolean? symbol?)