adjusted for changed define/return syntax

ffmpeg-definitions.rkt

@@ -1179,7 +1179,7 @@
            (av_packet_unref pkt)
            (loop)])))))
 
-(define/return (drain-resampler! self)
+(define/return (drain-resampler! self) return 
   (let* ((dec (fmpg-instance-decoder self))
          (info (fmpg-instance-audio-info self))
          (channels (ais-channels info))
@@ -1225,6 +1225,7 @@
 
                 (loop 1)))))))))
 
+(define/return (fmpg-decode-next! instance) return 
 
   (define (receive-or-return! self dec)
   (let ((produced (receive-available-frames! self)))
@@ -1233,8 +1234,6 @@
       [(produced-pcm? produced dec) (return 1)]
       [else produced])))
 
-
-(define/return (fmpg-decode-next! instance)
   (when (not (instance-ready? instance)) (return 0))
 
   (let ((dec (fmpg-instance-decoder instance)))
@@ -1278,7 +1277,7 @@
 
 
 
-(define/return (fmpg-seek-ms! instance target-pos-ms)
+(define/return (fmpg-seek-ms! instance target-pos-ms) return
   (when (or (not (instance-ready? instance)) (< target-pos-ms 0)) (return 0))
 
   (let/assert

private/downloader.rkt

@@ -92,7 +92,7 @@
 ;; Provided functions
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(define/return (soundlibs-available?)
+(define/return (soundlibs-available?) return
   (unless (eq? (system-type 'os) 'windows)   ; We only need to download libraries for windows. 
     (return #t))
   (if (file-exists? version-file)