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 e5491b809626177b8954452f5ccca24b607d213e..1f910b74b224aab65a1efcd49b1d8cebbabf4204 100644 (file)
--- 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))))))