laten zien hoe downloads en zo gaan

2026-10-29 10:39:35 +01:00
parent f7f4d440b8
commit 3fda5c2485
8 changed files with 293 additions and 69 deletions
@@ -359,7 +359,10 @@
                         (make-semaphore 1))))
    (set-dlna-playback-monitor!
     playback
-     (thread (λ () (monitor-loop playback poll-seconds))))
+     (thread (λ ()
+               (with-handlers ((exn:break? void))
+                 (parameterize-break #t
+                   (monitor-loop playback poll-seconds))))))
    playback))

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -483,7 +486,9 @@
    (set-dlna-playback-running?! playback #f)
    (let ((monitor (dlna-playback-monitor playback)))
      (when (and monitor (not (thread-dead? monitor)))
-        (kill-thread monitor))
+        ;; A break unwinds call-with-semaphore; kill-thread leaves its lock held.
+        (break-thread monitor)
+        (thread-wait monitor))
      (set-dlna-playback-monitor! playback #f)
      (with-lock
       playback