From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 27 Jul 1995 21:07:21 +0000 (+0000)
Subject: The cold boot file "make.com" must contain an scode expression.
X-Git-Tag: 20090517-FFI~6107
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8598aa06a7e1faa45c615505ca39501c11303607;p=mit-scheme.git

The cold boot file "make.com" must contain an scode expression.

Extended to ensure that this is true as the compiler dumps a
COMPILED-MODULE structure.
---

diff --git a/v8/src/runtime/runtime.cbf b/v8/src/runtime/runtime.cbf
index 4df009d51..e5491b809 100644
--- a/v8/src/runtime/runtime.cbf
+++ b/v8/src/runtime/runtime.cbf
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: runtime.cbf,v 1.2 1993/08/11 19:13:10 cph Exp $
+$Id: runtime.cbf,v 1.3 1995/07/27 21:07:21 adams Exp $
 
-Copyright (c) 1988-93 Massachusetts Institute of Technology
+Copyright (c) 1988-95 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -33,4 +33,12 @@ promotional, or sales literature without prior written consent from
 MIT in each case. |#
 
 (fluid-let ((compiler:coalescing-constant-warnings? #f))
-  (compile-directory "."))
\ No newline at end of file
+  (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")))))