(sync-pages) ( vorbis-stream ? -- ? )

Vocabulary

audio.vorbis.private

Inputs

vorbis-stream	an object
?	an object

Outputs

?

an object

Definition

USING: kernel ;

IN: audio.vorbis.private

: (sync-pages) ( vorbis-stream ? -- ? )
    over retrieve-page
    [ drop [ queue-page ] [ t (sync-pages) ] bi ]
    [ over buffer-data-from-stream [ (sync-pages) ] [ nip ] if ]
    if ;