From 070f6bd12adb2ffb94e95c5c9bcb9b73e0beb0ee Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Tue, 7 Jul 2026 12:09:33 +0200 Subject: [PATCH] 'play -> 'open --- audio-player.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/audio-player.rkt b/audio-player.rkt index eb0d572..4733e4e 100644 --- a/audio-player.rkt +++ b/audio-player.rkt @@ -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?)