From 8598aa06a7e1faa45c615505ca39501c11303607 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 27 Jul 1995 21:07:21 +0000
Subject: [PATCH] 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.
---
 v8/src/runtime/runtime.cbf | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

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