From 20d0194f48cb2c5f4b29e2c9bfe78ec320efc0a4 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Tue, 12 May 2026 15:04:35 +0200 Subject: [PATCH] logging --- ao-placed-player.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/ao-placed-player.rkt b/ao-placed-player.rkt index 10c0538..bd431b0 100644 --- a/ao-placed-player.rkt +++ b/ao-placed-player.rkt @@ -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))