-

libflac/flac-decoder.rkt

@@ -136,9 +136,13 @@
           #f)))
 
   (define (flac-stop handle)
+    (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