From 7956d150722cb2259f0af66e422349d5b94f75fe Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Mon, 11 May 2026 17:32:11 +0200 Subject: [PATCH] adjusted for changed define/return syntax --- ffmpeg-definitions.rkt | 9 ++++----- private/downloader.rkt | 2 +- 2 files changed, 5 insertions(+), 6 deletions(-) diff --git a/ffmpeg-definitions.rkt b/ffmpeg-definitions.rkt index 3807bea..ccd14b8 100644 --- a/ffmpeg-definitions.rkt +++ b/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,16 +1225,15 @@ (loop 1))))))))) +(define/return (fmpg-decode-next! instance) return -(define (receive-or-return! self dec) + (define (receive-or-return! self dec) (let ((produced (receive-available-frames! self))) (cond [(< produced 0) (return 0)] [(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 diff --git a/private/downloader.rkt b/private/downloader.rkt index 325aef6..922da7b 100644 --- a/private/downloader.rkt +++ b/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)