find-metadata ( lines type -- metadata i )

Vocabulary

yenc.private

Inputs

lines	an object
type	an object

Outputs

metadata	an object
i	an object

Definition

USING: kernel sequences splitting ;

IN: yenc.private

: find-metadata ( lines type -- metadata i )
    [ [ head? ] curry find ] keep ?head drop parse-metadata swap
    ;