From f3ff7afe1c7f937ce52ced244ba39a1631fa675b Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 8 Dec 1989 01:52:17 +0000
Subject: [PATCH] Add new primitive `file-attributes-indirect' that uses `stat'
 instead of `lstat'.  Change `file-modification-time' to use it.

---
 v7/src/runtime/unxprm.scm  | 8 ++++++--
 v7/src/runtime/version.scm | 4 ++--
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/v7/src/runtime/unxprm.scm b/v7/src/runtime/unxprm.scm
index ec15d1c56..755945654 100644
--- a/v7/src/runtime/unxprm.scm
+++ b/v7/src/runtime/unxprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unxprm.scm,v 1.5 1989/10/26 06:47:23 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unxprm.scm,v 1.6 1989/12/08 01:52:05 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -71,6 +71,10 @@ MIT in each case. |#
   ((ucode-primitive file-attributes)
    (pathname->string (pathname->absolute-pathname (->pathname filename)))))
 
+(define (file-attributes-indirect filename)
+  ((ucode-primitive file-attributes-indirect)
+   (pathname->string (pathname->absolute-pathname (->pathname filename)))))
+
 (define-structure (file-attributes
 		   (type vector)
 		   (constructor false)
@@ -87,7 +91,7 @@ MIT in each case. |#
   (inode-number false read-only true))
 
 (define (file-modification-time filename)
-  (let ((attributes (file-attributes filename)))
+  (let ((attributes (file-attributes-indirect filename)))
     (and attributes
 	 (file-attributes/modification-time attributes))))
 
diff --git a/v7/src/runtime/version.scm b/v7/src/runtime/version.scm
index 7e05115e5..4dd567001 100644
--- a/v7/src/runtime/version.scm
+++ b/v7/src/runtime/version.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.68 1989/12/07 05:36:28 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.69 1989/12/08 01:52:17 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -45,7 +45,7 @@ MIT in each case. |#
 		     '()))
   (add-system! microcode-system)
   (add-event-receiver! event:after-restore snarf-microcode-version!)
-  (add-identification! "Runtime" 14 68))
+  (add-identification! "Runtime" 14 69))
 
 (define microcode-system)
 
-- 
2.25.1