From 076b57bfb83c9a42dff85c1787e6ac86b3b67c6e Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Thu, 9 Apr 2026 13:24:29 +0200
Subject: [PATCH] -

---
 Makefile         | 9 +++++++++
 flac-decoder.rkt | 1 -
 libao-async.rkt  | 4 ----
 libao.rkt        | 2 --
 4 files changed, 9 insertions(+), 7 deletions(-)
 create mode 100644 Makefile

diff --git a/Makefile b/Makefile
new file mode 100644
index 0000000..c8df55a
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,9 @@
+
+all:
+	@echo "make clean"
+
+clean:
+	find . -type f -name "*~" -exec rm {} \;
+	find . -type f -name "*.back" -exec rm {} \;
+	rm -f scrbl/*.html scrbl/*.js scrbl/*.css
+	DIRS=`find . -type d -name "compiled"`;rm -rf $$DIRS
diff --git a/flac-decoder.rkt b/flac-decoder.rkt
index ce0a4c7..2285205 100644
--- a/flac-decoder.rkt
+++ b/flac-decoder.rkt
@@ -54,7 +54,6 @@
         (when (procedure? cb-audio)
           (cb-audio h buffers))
         ))
-    ;(displayln "Processing frame"))
     #t
     )
   
diff --git a/libao-async.rkt b/libao-async.rkt
index 1b5ef84..4ce0958 100644
--- a/libao-async.rkt
+++ b/libao-async.rkt
@@ -184,10 +184,6 @@
 (define (ao_clear_async* shm)
   (let ((q (ao-shm-queue shm)))
     (while (> (queue-length q) 0)
-           ;(displayln (format "queue-length: ~a" (queue-length q)))
-           ;(let* ((elem (dequeue! q))
-                  ;(buf (car (cddddr elem))))
-             ;(free buf))))
 	   (dequeue! q)))
   (set-ao-shm-queue! shm (make-queue))
   (set-ao-shm-bufsize! shm 0)
diff --git a/libao.rkt b/libao.rkt
index addc54a..ca83881 100644
--- a/libao.rkt
+++ b/libao.rkt
@@ -200,8 +200,6 @@
                        (let ((chan-buf (list-ref buffer channel)))
                          (vector-ref chan-buf k))))
          )
-    ;(displayln (format "bps: ~a, buf-len: ~a, endianess: ~a, channels: ~a, bits ~a"
-    ;                   bytes-per-sample buf-len endianess channels bits))
     (letrec ((i 0)
              (fill (lambda (k channel)
                      (if (< k buf-len)