From eb3775c70f56d0463656e8d428a31c96436e8e03 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 17 Jun 2010 00:04:53 -0500
Subject: [PATCH] Implement gmt hook on unix

---
 basis/calendar/unix/unix.factor | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/basis/calendar/unix/unix.factor b/basis/calendar/unix/unix.factor
index 6916129368..40475b4d40 100644
--- 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 ;