path->string

libflac/flac-decoder.rkt

@@ -19,7 +19,8 @@
 ;; Functions to do the good stuff  
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-  (define (flac-open flac-file cb-stream-info cb-audio)
+  (define (flac-open flac-file* cb-stream-info cb-audio)
+    (let ((flac-file (if (path? flac-file*) (path->string flac-file* flac-file*))))
       (if (file-exists? flac-file)
           (let ((handler (flac-ffi-decoder-handler)))
             (handler 'new)
@@ -28,7 +29,7 @@
               (set-flac-handle-cb-stream-info! h cb-stream-info)
               (set-flac-handle-cb-audio! h cb-audio)
               h))
-        #f))
+          #f)))
 
   (define (flac-stream-state handle)
     ((flac-handle-ffi-decoder-handler handle) 'state))

libtag/taglib.rkt

@@ -41,8 +41,9 @@
   (define-struct id3-picture
     (mimetype kind size bytes))
 
-  (define (id3-tags file)
-    (let ((valid? #f)
+  (define (id3-tags file*)
+    (let ((file (if (path? file*) (path->string file*) file*))
+          (valid? #f)
           (title "")
           (album "")
           (artist "")