From af020f909b18cda695004b8d952901a10cc0eaf8 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Tue, 11 Dec 2007 19:32:34 -0500
Subject: [PATCH] slight change to implementation of time-gmt-offset so that
 the gmt_off field of the tm struct is not used (not available in cygwin).

---
 src/ikarus-runtime.c | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/ikarus-runtime.c b/src/ikarus-runtime.c
index 0ede881..15535b3 100644
--- a/src/ikarus-runtime.c
+++ b/src/ikarus-runtime.c
@@ -849,9 +849,14 @@ ikrt_gmt_offset(ikp t){
   time_t clock =
     unfix(ref(t, off_record_data + 0*wordsize)) * 1000000 
     + unfix(ref(t, off_record_data + 1*wordsize));
+  struct tm* m = gmtime(&clock);
+  time_t gmtclock = mktime(m);
+  return fix(clock - gmtclock);
+  /*
   struct tm* m = localtime(&clock);
   ikp r = fix(m->tm_gmtoff);
   return r;
+  */
 }