Added COMPILED-MODULE-EVAL.

diff --git a/v8/src/runtime/global.scm b/v8/src/runtime/global.scm
index b75a977d6f93ab1faf7fab4152fb10624d33d222..2403e1e9e1b1989f6985c5e100b78cb7c93bccb5 100644 (file)
--- a/v8/src/runtime/global.scm
+++ b/v8/src/runtime/global.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: global.scm,v 14.49 1995/07/27 20:31:23 adams Exp $
+$Id: global.scm,v 14.50 1995/07/28 17:45:09 adams Exp $
 
 Copyright (c) 1988-95 Massachusetts Institute of Technology
 
@@ -95,7 +95,9 @@ MIT in each case. |#
                       environment))
 
 (define (scode-eval scode environment)
-  (hook/scode-eval scode environment))
+  (if (compiled-module? scode)
+      (compiled-module-eval scode environment)
+      (hook/scode-eval scode environment)))
 
 (define hook/scode-eval
   (ucode-primitive scode-eval))

diff --git a/v8/src/runtime/infutl.scm b/v8/src/runtime/infutl.scm
index d093388ccdd0a7fc1f5ee70b946f0ee72b281769..940acc42150a9cb8fd64e2b9d71536fbda8638fa 100644 (file)
--- a/v8/src/runtime/infutl.scm
+++ b/v8/src/runtime/infutl.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: infutl.scm,v 1.59 1995/07/27 21:01:09 adams Exp $
+$Id: infutl.scm,v 1.60 1995/07/28 17:44:48 adams Exp $
 
 Copyright (c) 1988-95 Massachusetts Institute of Technology
 
@@ -67,6 +67,9 @@ MIT in each case. |#
 (define bsm-load-types)
 
 
+(define (compiled-module-eval module environment)
+  (scode-eval (compiled-module/expression module) environment))
+
 (define (compiled-code-block/dbg-descriptor block)
   (let ((info (compiled-code-block/debugging-info block)))
     (cond ((valid-dbg-descriptor? info)

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index e89cd1a571e4d1cc1b27b3fa8e7c6131a38ce1f2..b7432e2f98c68a266a5f16cceb47da28dfca1ea1 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.261 1995/07/27 21:08:59 adams Exp $
+$Id: runtime.pkg,v 14.262 1995/07/28 17:44:25 adams Exp $
 
 Copyright (c) 1988-95 Massachusetts Institute of Technology
 
@@ -226,13 +226,14 @@ MIT in each case. |#
          compiled-entry/dbg-object
          compiled-entry/offset
          compiled-expression/scode
+         compiled-module?
+         compiled-module-eval
          compiled-procedure/name
          compiled-procedure/lambda
          discard-debugging-info!
          load-debugging-info-on-demand?
          uncompress-ports)
   (export (runtime load)
-         compiled-module?
          compiled-module/expression
          compiled-module/purification-root
          fasload/update-debugging-info!)