tzinfo: make it easy to load zoneinfo files.

2013-09-05 13:13:15 -07:00 · 2013-09-05 13:13:15 -07:00 · f1b1598885
parent f61bf2f4c4
commit f1b1598885
1 changed files with 3 additions and 0 deletions
--- a/extra/tzinfo/tzinfo.factor
+++ b/extra/tzinfo/tzinfo.factor
@ -108,3 +108,6 @@ PRIVATE>

 : normalize ( timestamp tzinfo -- timestamp' )
    [ instant convert-timezone ] [ from-utc ] bi* ;
+
+: load-tzinfo ( name -- tzinfo )
+    "/usr/share/zoneinfo/" prepend file>tzinfo ;