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

'play -> 'open

Browse Source
This commit is contained in:
Hans Dijkema
2026-07-07 12:09:33 +02:00
parent 781a21a5d6
commit 070f6bd12a
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
@@ -274,10 +274,10 @@
(define/contract (audio-play! handle audio-file)
(-> audio-play? path-string? number?)
(let ((r (ap-rpc handle 'play audio-file)))
(let ((r (ap-rpc handle 'open audio-file)))
(if (eq? (car r) 'ok)
(cadr r)
(raise-audio-error 'audio-error "audio-player: unexpected return value from 'play command: ~a" r))))
(raise-audio-error 'audio-error "audio-play!: unexpected return value from 'open command: ~a" r))))
(define/contract (audio-pause! handle paused)
(-> audio-play? boolean? symbol?)