-

libflac/flac-decoder.rkt

@@ -10,7 +10,6 @@
            flac-read-meta
            flac-stream-state
            (all-from-out "flac-definitions.rkt")
-           test-file test-file2 test-file3
            kinds
            last-buffer last-buf-len
            )
@@ -124,8 +123,4 @@
             (flac-handle-stream-info handle))
           #f)))
                          
-  (define test-file "C:/devel/racket/racket-sound/libflac/capr24.flac")
-  (define test-file2 "C:/Muziek/Klassiek-Kamermuziek/Beethoven/Rachel Podger/01 Violin Sonata No. 1 in D Major, Op. 12 No. 1- I. Allegro con brio.flac")
-  (define test-file3 "c:/Muziek/Pop/Radiohead/The Best of Radiohead (2008)/02. Paranoid Android.flac")
-
   ); end of module

libflac/flac-definitions.rkt

@@ -23,14 +23,16 @@
            flac-duration
            )
 
-  (define-struct flac-stream-info
+  (define-struct flac-stream-info 
     (min-blocksize max-blocksize
      min-framesize max-framesize
      sample-rate
      channels
      bits-per-sample
      total-samples
-     ))
+     )
+    #:transparent
+    )
 
   (define (flac-stream-info->string si)
     (format "sample-rate: ~a, channels: ~a, bits-per-sample: ~a, total-samples: ~a"