From 28d804d2c4916692b4f2589f0f6223929cda46b9 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 2 Apr 2008 18:28:55 -0500
Subject: [PATCH] remove calendar-backend and use os

---
 extra/calendar/backend/backend.factor | 5 ++---
 extra/calendar/unix/unix.factor       | 9 ++-------
 extra/calendar/windows/windows.factor | 8 ++------
 3 files changed, 6 insertions(+), 16 deletions(-)

diff --git a/extra/calendar/backend/backend.factor b/extra/calendar/backend/backend.factor
index 01c36c65ae..56ccf9e6cc 100644
--- a/extra/calendar/backend/backend.factor
+++ b/extra/calendar/backend/backend.factor
@@ -1,5 +1,4 @@
-USING: kernel ;
+USING: kernel system ;
 IN: calendar.backend
 
-SYMBOL: calendar-backend
-HOOK: gmt-offset calendar-backend ( -- hours minutes seconds )
+HOOK: gmt-offset os ( -- hours minutes seconds )
diff --git a/extra/calendar/unix/unix.factor b/extra/calendar/unix/unix.factor
index 2877fa07b5..6383d4ec42 100644
--- a/extra/calendar/unix/unix.factor
+++ b/extra/calendar/unix/unix.factor
@@ -1,17 +1,12 @@
 USING: alien alien.c-types arrays calendar.backend
-kernel structs math unix.time namespaces ;
-
+kernel structs math unix.time namespaces system ;
 IN: calendar.unix
 
-TUPLE: unix-calendar ;
-
-T{ unix-calendar } calendar-backend set-global
-
 : get-time ( -- alien )
     f time <uint> localtime ;
 
 : timezone-name ( -- string )
     get-time tm-zone ;
 
-M: unix-calendar gmt-offset ( -- hours minutes seconds )
+M: unix gmt-offset ( -- hours minutes seconds )
     get-time tm-gmtoff 3600 /mod 60 /mod ;
diff --git a/extra/calendar/windows/windows.factor b/extra/calendar/windows/windows.factor
index 8548e4ee52..2986422155 100755
--- a/extra/calendar/windows/windows.factor
+++ b/extra/calendar/windows/windows.factor
@@ -1,12 +1,8 @@
-USING: calendar.backend namespaces alien.c-types
+USING: calendar.backend namespaces alien.c-types system
 windows windows.kernel32 kernel math combinators ;
 IN: calendar.windows
 
-TUPLE: windows-calendar ;
-
-T{ windows-calendar } calendar-backend set-global
-
-M: windows-calendar gmt-offset ( -- hours minutes seconds )
+M: windows gmt-offset ( -- hours minutes seconds )
     "TIME_ZONE_INFORMATION" <c-object>
     dup GetTimeZoneInformation {
         { [ dup TIME_ZONE_ID_INVALID = ] [ win32-error-string throw ] }