From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 14 Mar 1989 02:23:10 +0000 (+0000)
Subject: Don't use vector-ref on result of file-attributes.
X-Git-Tag: 20090517-FFI~12236
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2be9eefea4958ff1317adb8394264807d56e25ac;p=mit-scheme.git

Don't use vector-ref on result of file-attributes.
---

diff --git a/v7/src/runtime/unxpth.scm b/v7/src/runtime/unxpth.scm
index c611c1aef..c4c9d0b7a 100644
--- a/v7/src/runtime/unxpth.scm
+++ b/v7/src/runtime/unxpth.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unxpth.scm,v 14.3 1989/03/14 02:17:20 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unxpth.scm,v 14.4 1989/03/14 02:23:10 cph Exp $
 
-Copyright (c) 1988 Massachusetts Institute of Technology
+Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -82,7 +82,7 @@ MIT in each case. |#
 (define (file-modification-time filename)
   (let ((attributes (file-attributes filename)))
     (and attributes
-	 (vector-ref attributes 5))))
+	 (file-attributes/modification-time attributes))))
 
 (define (file-modes filename)
   (let ((truename (pathname->input-truename (->pathname filename))))