From ca1bf54519c12b6b25c998a6077c3ff3dcaa9853 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Tue, 24 Feb 2026 16:59:44 +0100 Subject: [PATCH] - --- libflac/flac-decoder.rkt | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/libflac/flac-decoder.rkt b/libflac/flac-decoder.rkt index f0022c8..ad2cdac 100644 --- 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