-

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))))
       )
     )