Just get-time, not unix/get-time
authorNick Papadakis <edu/mit/csail/zurich/nick>
Sun, 24 Jan 1993 23:26:50 +0000 (23:26 +0000)
committerNick Papadakis <edu/mit/csail/zurich/nick>
Sun, 24 Jan 1993 23:26:50 +0000 (23:26 +0000)
v7/src/6001/floppy.scm

index b02077f512ee25cff9155b8b547a4a21f65f2b67..f25bcef09b14ff908350131746bae0817c3da8f9 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: floppy.scm,v 1.12 1993/01/24 03:47:34 gjs Exp $
+$Id: floppy.scm,v 1.13 1993/01/24 23:26:50 nick Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -661,7 +661,7 @@ M-x rename-file, or use the `r' command in Dired.")
 
 (define (time-zone-offset)
   (let ((decoded-time (get-decoded-time))
-       (file-time (unix/get-time)))
+       (file-time (get-time)))
     (- (* (quotient file-time 60) 60)
        (make-dos-time (decoded-time/year decoded-time)
                      (decoded-time/month decoded-time)