diff --git a/audio-player.rkt b/audio-player.rkt index 303a62d..0a69e0f 100644 --- a/audio-player.rkt +++ b/audio-player.rkt @@ -3,6 +3,7 @@ (require racket/place racket/contract racket/async-channel + racket/runtime-path "audio-placed-player.rkt" "private/utils.rkt" (prefix-in ffi: ffi/unsafe) @@ -32,6 +33,8 @@ audio-known-exts? ) +(define-runtime-path placed-player-module "audio-placed-player.rkt") + (define-struct audio-play (valid? cb-state cb-eof-stream rpc au-place evt-thread state) #:mutable @@ -93,7 +96,7 @@ ) (if use-place (begin - (set! cmd-ch (dynamic-place "audio-placed-player.rkt" 'placed-player)) + (set! cmd-ch (dynamic-place placed-player-module 'placed-player)) (set! cmd-put (λ (data) (place-channel-put cmd-ch data))) (set! au-pl cmd-ch) (set! dead-guard (λ () (let ((evt (place-dead-evt au-pl))) diff --git a/play-test.rkt b/play-test.rkt index f4dc5e5..1cf6e91 100644 --- a/play-test.rkt +++ b/play-test.rkt @@ -69,10 +69,14 @@ (dbg-sound "audio-play! -> ~a" (audio-play! h (car play-queue)))) ) +(displayln "Making audio player") + (define h (make-audio-player audio-player-state audio-player-eof #:use-place place-mode)) +(displayln "done") + (sl-log-to-display) (audio-player-eof h)