From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 12 Jan 1993 19:01:03 +0000 (+0000)
Subject: Remove current-file-time, not in use.
X-Git-Tag: 20090517-FFI~8605
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7f2384c77dbfd1c701525afbfa67186d15bd057e;p=mit-scheme.git

Remove current-file-time, not in use.
---

diff --git a/v7/src/runtime/dosprm.scm b/v7/src/runtime/dosprm.scm
index f479197e4..e52c51852 100644
--- a/v7/src/runtime/dosprm.scm
+++ b/v7/src/runtime/dosprm.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: dosprm.scm,v 1.16 1992/11/03 22:42:11 jinx Exp $
+$Id: dosprm.scm,v 1.17 1993/01/12 19:01:03 gjr Exp $
 
-Copyright (c) 1992 Massachusetts Institute of Technology
+Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -254,9 +254,6 @@ MIT in each case. |#
   (or (get-environment-variable "HOME")
       (dos/user-home-directory (dos/current-user-name))))
 
-(define dos/current-file-time
-  (ucode-primitive current-file-time 0))
-
 (define dos/file-time->string
   (ucode-primitive file-time->string 1))