Now if `pathname-newest' is false, it indicates that NEWEST versions

should not be used.

diff --git a/v7/src/runtime/unxpth.scm b/v7/src/runtime/unxpth.scm
index 95053c1a645f9045c802268ebcfa897c5f739255..ff659a7cdd83b23ef92c25a2ab8cab61e34e2532 100644 (file)
--- a/v7/src/runtime/unxpth.scm
+++ b/v7/src/runtime/unxpth.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unxpth.scm,v 1.6 1987/08/20 03:02:50 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unxpth.scm,v 1.7 1987/08/20 03:59:56 cph Rel $
 ;;;
 ;;;    Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -337,8 +337,5 @@
 (define init-file-pathname
   (string->pathname ".scheme.init"))
 
-(define (pathname-newest pathname)
-  ;; For now, version numbers are disabled.
-  (let ((truename (pathname-new-version pathname false)))
-    (and (truename-exists? truename)
-        truename)))
\ No newline at end of file
+(define pathname-newest
+  false)
\ No newline at end of file