hans/gemigreerd-racket-audio
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adjusted for changed define/return syntax

Browse Source
This commit is contained in:
Hans Dijkema
2026-05-11 17:32:11 +02:00
parent f8c091946f
commit 7956d15072
2 changed files with 5 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ffmpeg-definitions.rkt
+4 -5
View File
@@ -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