From 06a631fd7b8d156e06bf967931834f6dcda9e29c Mon Sep 17 00:00:00 2001 From: Nick Papadakis Date: Sun, 24 Jan 1993 23:26:50 +0000 Subject: [PATCH] Just get-time, not unix/get-time --- v7/src/6001/floppy.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/6001/floppy.scm b/v7/src/6001/floppy.scm index b02077f51..f25bcef09 100644 --- a/v7/src/6001/floppy.scm +++ b/v7/src/6001/floppy.scm @@ -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) -- 2.25.1