From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 19 Aug 1995 14:30:44 +0000 (+0000)
Subject: Fixed patchup code for make.com to determine and use an absolute
X-Git-Tag: 20090517-FFI~6022
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=25e2cef06938fd87d2b93ac12f2fab8ec7000af2;p=mit-scheme.git

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.
---

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))))))