From 734aeef222c2f70c654b4d88818d25e589770901 Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Tue, 12 May 2026 15:09:01 +0200
Subject: [PATCH] no second close

---
 ao-placed-player.rkt | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/ao-placed-player.rkt b/ao-placed-player.rkt
index bd431b0..3e918ef 100644
--- a/ao-placed-player.rkt
+++ b/ao-placed-player.rkt
@@ -45,10 +45,13 @@
 
   (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)
 
   (let loop ()