-

2026-02-24 16:59:44 +01:00
parent ace66827a0
commit ca1bf54519
1 changed files with 7 additions and 3 deletions
--- a/libflac/flac-decoder.rkt
+++ b/libflac/flac-decoder.rkt
@@ -136,9 +136,13 @@
          #f)))

  (define (flac-stop handle)
-    (set-flac-handle-stop-reading! handle #t)
-    (while (flac-handle-reading handle)
-           (sleep 0.01))
+    (let ((ct (current-milliseconds)))
+      (set-flac-handle-stop-reading! handle #t)
+      (while (flac-handle-reading handle)
+             (sleep 0.01))
+      (let ((ct* (current-milliseconds)))
+        (displayln (format "flac-stop took: ~a ms" (- ct* ct))))
+      )
    )
                         
  ); end of module