hans/gemigreerd-racket-audio
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

logging

Browse Source
This commit is contained in:
Hans Dijkema
2026-05-12 15:04:35 +02:00
parent a059444ecf
commit 20d0194f48
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ao-placed-player.rkt
+4 -4
View File
@@ -39,13 +39,13 @@
(define (log! fmt . args)
(place-channel-put log-ch (apply format fmt args)))
(log! "ao-placed-player: started")
(log! "!!! ao-placed-player: started")
(define h #f)
(define (close!)
(when h
(log! "ao-placed-player: close")
(log! "!!! ao-placed-player: close")
(ao-close h)
(set! h #f)))
@@ -55,7 +55,7 @@
(match (place-channel-get cmd-ch)
[`(open-file ,bits ,rate ,channels ,endianness ,wav-output-file)
(log! "open-file bits=~a rate=~a channels=~a endian=~a file=~a"
(log! "!!! open-file bits=~a rate=~a channels=~a endian=~a file=~a"
bits rate channels endianness wav-output-file)
(close!)
(set! h (ao-open-file bits rate channels endianness wav-output-file))
@@ -67,7 +67,7 @@
(loop)]
[`(open-live ,bits ,rate ,channels ,endianness)
(log! "open-live bits=~a rate=~a channels=~a endian=~a"
(log! "!!! open-live bits=~a rate=~a channels=~a endian=~a"
bits rate channels endianness)
(close!)
(set! h (ao-open-live bits rate channels endianness))