From: Mark Friedman <edu/mit/csail/zurich/markf>
Date: Thu, 12 Apr 1990 22:50:28 +0000 (+0000)
Subject: Oops, forgot some initializations for the LOAD-LATEST stuff. See the
X-Git-Tag: 20090517-FFI~11433
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b9f7807974fd30e159a34b52cd252ffb786fb43c;p=mit-scheme.git

Oops, forgot some initializations for the LOAD-LATEST stuff. See the
log for the last version for more info.
---

diff --git a/v7/src/runtime/load.scm b/v7/src/runtime/load.scm
index bf2e0efd8..80749070b 100644
--- a/v7/src/runtime/load.scm
+++ b/v7/src/runtime/load.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/load.scm,v 14.13 1990/04/12 21:56:31 markf Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/load.scm,v 14.14 1990/04/12 22:50:28 markf Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -42,12 +42,14 @@ MIT in each case. |#
   (set! load/suppress-loading-message? false)
   (set! load/default-types '("com" "bin" "scm"))
   (set! fasload/default-types '("com" "bin"))
+  (set! load/default-find-pathname-with-type search-types-in-order)
   (add-event-receiver! event:after-restart load-init-file))
 
 (define load-noisily?)
 (define load/suppress-loading-message?)
 (define load/default-types)
 (define fasload/default-types)
+(define load/default-find-pathname-with-type)
 
 (define (read-file filename)
   (call-with-input-file
diff --git a/v8/src/runtime/load.scm b/v8/src/runtime/load.scm
index c65c23a7b..ad01823f4 100644
--- a/v8/src/runtime/load.scm
+++ b/v8/src/runtime/load.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/load.scm,v 14.13 1990/04/12 21:56:31 markf Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/load.scm,v 14.14 1990/04/12 22:50:28 markf Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -42,12 +42,14 @@ MIT in each case. |#
   (set! load/suppress-loading-message? false)
   (set! load/default-types '("com" "bin" "scm"))
   (set! fasload/default-types '("com" "bin"))
+  (set! load/default-find-pathname-with-type search-types-in-order)
   (add-event-receiver! event:after-restart load-init-file))
 
 (define load-noisily?)
 (define load/suppress-loading-message?)
 (define load/default-types)
 (define fasload/default-types)
+(define load/default-find-pathname-with-type)
 
 (define (read-file filename)
   (call-with-input-file