no second close
This commit is contained in:
@@ -45,9 +45,12 @@
|
|||||||
|
|
||||||
(define (close!)
|
(define (close!)
|
||||||
(when h
|
(when h
|
||||||
(log! "!!! ao-placed-player: close")
|
(let ((old-h h))
|
||||||
(ao-close h)
|
(set! h #f)
|
||||||
(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)
|
(place-channel-put cmd-ch 'started)
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user