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
;