Implement gmt hook on unix

2010-06-17 00:04:53 -05:00 · 2010-06-17 00:04:53 -05:00 · eb3775c70f
parent e8d528ad93
commit eb3775c70f
1 changed files with 4 additions and 0 deletions
--- a/basis/calendar/unix/unix.factor
+++ b/basis/calendar/unix/unix.factor
@ -28,3 +28,7 @@ IN: calendar.unix

 M: unix gmt-offset ( -- hours minutes seconds )
    get-time gmtoff>> 3600 /mod 60 /mod ;
+
+M: unix gmt
+    timeval <struct> f [ gettimeofday io-error ] 2keep drop
+    timeval>unix-time ;