-

libflac/flac-decoder.rkt

@@ -36,6 +36,7 @@
   (define kinds (make-hash))
   (define last-buffer #f)
   (define last-buf-len #f)
+  
   (define (process-frame handle frame buffer)
     (let* ((h (flac-ffi-frame-header frame))
            (cb-audio (flac-handle-cb-audio handle))
@@ -43,6 +44,7 @@
            (type (hash-ref h 'number-type))
            (channels (hash-ref h 'channels))
            (block-size (hash-ref h 'blocksize)))
+      (hash-set! h 'duration (flac-duration handle))
       (let ((buffers (ffi 'get-buffers buffer channels block-size)))
         (set! last-buffer buffers)
         (set! last-buf-len (hash-ref h 'blocksize))

libflac/flac-definitions.rkt

@@ -96,6 +96,7 @@
      [stream-info #:auto #:mutable]
      )
      #:auto-value #f
+     ;#:transparent
     )
 
   ); end of module