From b9f7807974fd30e159a34b52cd252ffb786fb43c Mon Sep 17 00:00:00 2001 From: Mark Friedman Date: Thu, 12 Apr 1990 22:50:28 +0000 Subject: [PATCH] Oops, forgot some initializations for the LOAD-LATEST stuff. See the log for the last version for more info. --- v7/src/runtime/load.scm | 4 +++- v8/src/runtime/load.scm | 4 +++- 2 files changed, 6 insertions(+), 2 deletions(-) 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 -- 2.25.1