Paste: better idiom?

Author: inforichland
Mode: factor
Date: Fri, 20 Feb 2009 01:29:41
Plain Text |
: parse-frames ( id3v2-info -- id3-info )
    [ <id3-info> ] dip frames>>
    {
        [ [ frame-id>> "TIT2" = ] find nip [ data>> >>title ] when* ]
        [ [ frame-id>> "TALB" = ] find nip [ data>> >>album ] when* ]
        [ [ frame-id>> "TPE1" = ] find nip [ data>> >>artist ] when* ]
        [ [ frame-id>> "TCON" = ] find nip [ data>> parse-genre >>genre ] when* ]
        [ [ frame-id>> "COMM" = ] find nip [ data>> >>comment ] when* ]
        [ [ frame-id>> "TYER" = ] find nip [ data>> >>year ] when* ]
    } cleave ;

New Annotation

Summary:
Author:
Mode:
Body: