id3v1+? ( seq -- ? )

Vocabulary

id3.private

Inputs

seq

an object

Outputs

?

an object

Definition

USING: combinators.short-circuit math sequences ;

IN: id3.private

: id3v1+? ( seq -- ? )
    {
        [ length id3v1+-offset >= ]
        [ id3v1+-length tail-slice* "TAG+" head? ]
    } 1&& ;