Callbacks etc.

2026-07-02 14:53:00 +02:00
parent e60ecaeaef
commit adb552c618
2 changed files with 5 additions and 2 deletions
@@ -44,7 +44,8 @@
      (lru-clear track-cache))

    
-    (define (audio-state-cb handle st*)
+    (define (audio-state-cb handle st* state-hash)
+      ;(displayln (format "AS:\n~a\n~a\n~a\nEAS" handle st* ehm?))
      (set! full-state st*)
      (let ((st (audio-state player)))
        (when (or (eq? st 'paused) (eq? st 'playing))