parse-rest-of-zone ( prev seq -- zone )

Vocabulary

zoneinfo

Inputs

prev	an object
seq	an object

Outputs

zone

an object

Definition

USING: accessors combinators kernel sequences ;

IN: zoneinfo

: parse-rest-of-zone ( prev seq -- zone )
    [ name>> ] dip
    { [ first ] [ second ] [ 2 swap nth ] [ 3 tail harvest ] }
    cleave raw-zone boa ;