small buf-size bug

ffmpeg-definitions.rkt

@@ -0,0 +1,7 @@
+#lang racket/base
+(require ffi/unsafe
+         "private/utils.rkt"
+         )
+
+
+

libao-async-ffi-racket.rkt

@@ -166,9 +166,11 @@
   (let ((el (if (<= ms-wait 0)
                 (sync/timeout 0 (ao-handle-queue h))
                 (sync/timeout (/ ms-wait 1000.0) (ao-handle-queue h) ))))
-    (unless (eq? el #f)
+    (if (eq? el #f)
+        (set-ao-handle-buf-size! h 0) ; no elements in queue => empty => no buffer with music samples
         (set-ao-handle-buf-size! h (- (ao-handle-buf-size h) (queue-elem-buflen el))))
-    el))
+    el)
+  )
 
 
 (define (needed-bytes h)