tzinfo: make it easy to load zoneinfo files.

diff --git a/extra/tzinfo/tzinfo.factor b/extra/tzinfo/tzinfo.factor
index 15fa7a5bb8cf5bbe81656804dc46fd16ef652d3e..c1f0d25eaee86d6706f51fe1d5b974ade2586816 100644 (file)
--- 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 ;