projects
/
mit-scheme.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
5f576f0
)
Just get-time, not unix/get-time
author
Nick Papadakis
<edu/mit/csail/zurich/nick>
Sun, 24 Jan 1993 23:26:50 +0000
(23:26 +0000)
committer
Nick Papadakis
<edu/mit/csail/zurich/nick>
Sun, 24 Jan 1993 23:26:50 +0000
(23:26 +0000)
v7/src/6001/floppy.scm
patch
|
blob
|
history
diff --git
a/v7/src/6001/floppy.scm
b/v7/src/6001/floppy.scm
index b02077f512ee25cff9155b8b547a4a21f65f2b67..f25bcef09b14ff908350131746bae0817c3da8f9 100644
(file)
--- a/
v7/src/6001/floppy.scm
+++ b/
v7/src/6001/floppy.scm
@@
-1,6
+1,6
@@
#| -*-Scheme-*-
-$Id: floppy.scm,v 1.1
2 1993/01/24 03:47:34 gjs
Exp $
+$Id: floppy.scm,v 1.1
3 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)