From 25e2cef06938fd87d2b93ac12f2fab8ec7000af2 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Sat, 19 Aug 1995 14:30:44 +0000 Subject: [PATCH] Fixed patchup code for make.com to determine and use an absolute pathname because BINARY-FASLOAD does not set the scheme process's working directory. --- v8/src/runtime/runtime.cbf | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) diff --git a/v8/src/runtime/runtime.cbf b/v8/src/runtime/runtime.cbf index e5491b809..1f910b74b 100644 --- a/v8/src/runtime/runtime.cbf +++ b/v8/src/runtime/runtime.cbf @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: runtime.cbf,v 1.3 1995/07/27 21:07:21 adams Exp $ +$Id: runtime.cbf,v 1.4 1995/08/19 14:30:44 adams Exp $ Copyright (c) 1988-95 Massachusetts Institute of Technology @@ -36,9 +36,13 @@ MIT in each case. |# (compile-directory ".")) (in-package (->environment '(runtime compiler-info)) - (let ((make.com ((make-primitive-procedure 'binary-fasload) "make.com"))) - (if (compiled-module? make.com) - (begin - (fresh-line) - (display ";Fixing \"make.com\" for cold load") - (fasdump (compiled-module/expression make.com) "make.com"))))) + (let ((filename + (->namestring (merge-pathnames "make.com" (current-load-pathname))))) + (let ((make.com ((make-primitive-procedure 'binary-fasload) filename))) + (if (compiled-module? make.com) + (begin + (fresh-line) + (display ";Fixing \"") + (display filename) + (display "\" for cold load") + (fasdump (compiled-module/expression make.com) filename)))))) -- 2.25.1