From 59a2062f6a4b9551d3932aab2e36b9125584363f Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Tue, 24 Feb 2026 17:01:20 +0100 Subject: [PATCH] - --- libflac/flac-decoder.rkt | 3 +++ 1 file changed, 3 insertions(+) diff --git a/libflac/flac-decoder.rkt b/libflac/flac-decoder.rkt index ad2cdac..36b00d2 100644 --- a/libflac/flac-decoder.rkt +++ b/libflac/flac-decoder.rkt @@ -86,6 +86,7 @@ (letrec ((reader (lambda (frame-nr) (if (flac-handle-stop-reading handle) (begin + (displayln (format "handling stop at: ~a" (current-milliseconds))) (set-flac-handle-reading! handle #f) 'stopped-reading) (let* ((st (ffi-handler 'state))) @@ -137,10 +138,12 @@ (define (flac-stop handle) (let ((ct (current-milliseconds))) + (displayln (format "requesting stop at: ~a" ct)) (set-flac-handle-stop-reading! handle #t) (while (flac-handle-reading handle) (sleep 0.01)) (let ((ct* (current-milliseconds))) + (displayln (format "stop came back at: ~a" ct*)) (displayln (format "flac-stop took: ~a ms" (- ct* ct)))) ) )