parse-partial-zone ( seq -- zone )


Vocabulary
zoneinfo

Definition
USING: accessors combinators kernel namespaces sequences ;

IN: zoneinfo

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