tzinfo: make it easy to load zoneinfo files.
parent
f61bf2f4c4
commit
f1b1598885
|
@ -108,3 +108,6 @@ PRIVATE>
|
||||||
|
|
||||||
: normalize ( timestamp tzinfo -- timestamp' )
|
: normalize ( timestamp tzinfo -- timestamp' )
|
||||||
[ instant convert-timezone ] [ from-utc ] bi* ;
|
[ instant convert-timezone ] [ from-utc ] bi* ;
|
||||||
|
|
||||||
|
: load-tzinfo ( name -- tzinfo )
|
||||||
|
"/usr/share/zoneinfo/" prepend file>tzinfo ;
|
||||||
|
|
Loading…
Reference in New Issue