From 8598aa06a7e1faa45c615505ca39501c11303607 Mon Sep 17 00:00:00 2001 From: Stephen 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