Handbook
Glossary
zoneinfo-country-zones ( -- seq )
Vocabulary
zoneinfo
Inputs
None
Outputs
seq
an
object
Definition
USING:
kernel
sequences
sequences.extras
splitting
splitting.extras
;
IN:
zoneinfo
IDENTITY-MEMO:
zoneinfo-country-zones
( -- seq )
"vocab:zoneinfo/zone1970.tab"
zoneinfo-lines
[
"\t"
split
?first4
[
","
split
]
3dip
[
"-+"
split*
first4
[
append
]
2dip
append
]
2dip
<zonetab>
]
{
}
map-as
;