no second close

2026-05-12 15:09:01 +02:00
parent 20d0194f48
commit 734aeef222
1 changed files with 7 additions and 4 deletions
@@ -45,9 +45,12 @@

  (define (close!)
    (when h
-      (log! "!!! ao-placed-player: close")
-      (ao-close h)
-      (set! h #f)))
+      (let ((old-h h))
+        (set! h #f)
+        (log! "closing ao handle")
+        (when (ao-valid? old-h)
+          (ao-close old-h))
+        (log! "ao handle closed"))))
  
  (place-channel-put cmd-ch 'started)