adjustment to the new audio-player module of racket-audio

2026-05-19 15:01:32 +02:00
parent e60ecaeaef
commit 2f04cf2ff4
4 changed files with 59 additions and 20 deletions
@@ -44,6 +44,11 @@
  (send rktplayer-window close)
  (exit)
  )
+
+(define-syntax ignore
+  (syntax-rules ()
+    ((_ body)
+     #t)))
  

 (define (run . no-exit)
@@ -59,6 +64,7 @@
           )
      (set! rktplayer-window window)
      (set! rktplayer-tray tray)
+      (ignore
      (thread (λ ()
                (sleep 5)
                (let ((prg (string-append "let f_evt_info = window.rkt_event_info;\n"
@@ -91,6 +97,7 @@
                                 (return 42)))))|#
                  (displayln prg)
                  (displayln (send window call-js prg)))))
+      )
      (when (or (null? no-exit)
                (not (eq? (car no-exit) #t)))
        (webview-wait-for-quit)