updated floppy.scm to conform to the change made by Bill

     RCS file: /scheme/src/runtime/RCS/unxprm.scm,v
     Working file: unxprm.scm
     head: 1.23
     branch:
     locks: strict
     access list:
     symbolic names:
	     RELEASE_7_1_0: 1.9
	     RELEASE_7_0_0: 1.4
     comment leader: ";;; "
     keyword substitution: kv
     total revisions: 23;	selected revisions: 23
     description:

     ----------------------------
     revision 1.23
     date: 1993/01/12 19:01:28;  author: gjr;  state: Exp;  lines: +2 -5
     Remove current-file-time, replaced by get-time.

diff --git a/v7/src/6001/floppy.scm b/v7/src/6001/floppy.scm
index 6cfa0036dbac815ff17d9804555e744c6101c77d..b02077f512ee25cff9155b8b547a4a21f65f2b67 100644 (file)
--- a/v7/src/6001/floppy.scm
+++ b/v7/src/6001/floppy.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: floppy.scm,v 1.11 1992/09/30 18:51:38 cph Exp $
+$Id: floppy.scm,v 1.12 1993/01/24 03:47:34 gjs 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/current-file-time)))
+       (file-time (unix/get-time)))
     (- (* (quotient file-time 60) 60)
        (make-dos-time (decoded-time/year decoded-time)
                      (decoded-time/month decoded-time)