From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 22 Jan 1998 23:07:38 +0000 (+0000)
Subject: Fix problem caused by incorrect assumption that universal time is the
X-Git-Tag: 20090517-FFI~4890
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5c1f4702d58b33d6325432c6fb4f026f0bd30c5d;p=mit-scheme.git

Fix problem caused by incorrect assumption that universal time is the
same as unix file time.
---

diff --git a/v7/src/6001/floppy.scm b/v7/src/6001/floppy.scm
index 1ecded5bc..f51dd8900 100644
--- a/v7/src/6001/floppy.scm
+++ b/v7/src/6001/floppy.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: floppy.scm,v 1.19 1997/03/04 06:45:17 cph Exp $
+$Id: floppy.scm,v 1.20 1998/01/22 23:07:38 cph Exp $
 
-Copyright (c) 1992-97 Massachusetts Institute of Technology
+Copyright (c) 1992-98 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -712,7 +712,7 @@ M-x rename-file, or use the `r' command in Dired.")
 
 (define (time-zone-offset)
   (let ((decoded-time (get-decoded-time)))
-    (- (* (quotient (get-universal-time) 60) 60)
+    (- (* (quotient (universal-time->file-time (get-universal-time)) 60) 60)
        (make-dos-time (decoded-time/year decoded-time)
 		      (decoded-time/month decoded-time)
 		      (decoded-time/day decoded-time)