From e50704af98842f74f8278e237e08f8dca5a8cdff Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Wed, 24 Jun 1987 02:49:10 +0000
Subject: [PATCH] Make fasload default to extension bin.
---
v7/src/runtime/input.scm | 12 +++++++++---
1 file changed, 9 insertions(+), 3 deletions(-)
diff --git a/v7/src/runtime/input.scm b/v7/src/runtime/input.scm
index 09f9eabc2..bc23e8d59 100644
--- a/v7/src/runtime/input.scm
+++ b/v7/src/runtime/input.scm
@@ -1,6 +1,6 @@
;;; -*-Scheme-*-
;;;
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/input.scm,v 13.45 1987/06/16 22:43:55 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/input.scm,v 13.46 1987/06/24 02:49:10 jinx Exp $
;;;
;;; Copyright (c) 1987 Massachusetts Institute of Technology
;;;
@@ -517,13 +517,19 @@
(define fasload)
(let ()
+(define default-pathname
+ (make-pathname false false false "bin" 'NEWEST))
+
(define binary-fasload
(make-primitive-procedure 'BINARY-FASLOAD))
(set! fasload
(named-lambda (fasload filename)
- (set! filename (canonicalize-input-filename filename))
- (let ((port (rep-output-port)))
+ (let ((port (rep-output-port))
+ (filename (pathname->string
+ (pathname->input-truename
+ (merge-pathnames (->pathname filename)
+ default-pathname)))))
(newline port)
(write-string "FASLoading " port)
(write filename port)
--
2.25.1