-

libflac/flac-decoder.rkt

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