module path possibly needs runtime-path.

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)))

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)