Add new primitive `file-attributes-indirect' that uses `stat' instead

of `lstat'.  Change `file-modification-time' to use it.

diff --git a/v7/src/runtime/unxprm.scm b/v7/src/runtime/unxprm.scm
index ec15d1c5687322c27ddee6bea7eea2054b03905c..755945654aeebd20a49e6bdb7b422e1d40fc3d77 100644 (file)
--- 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))))
 \f

diff --git a/v7/src/runtime/version.scm b/v7/src/runtime/version.scm
index 7e05115e5035d21afee8d78aac78f11b326b5c0d..4dd567001cbc1a3d3ce4aab91891ed715bbf83c6 100644 (file)
--- 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)