From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Fri, 28 Jul 1995 17:45:09 +0000 (+0000)
Subject: Added COMPILED-MODULE-EVAL.
X-Git-Tag: 20090517-FFI~6097
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3261720e14d2f894449f8d210db910f8395bd93c;p=mit-scheme.git

Added COMPILED-MODULE-EVAL.
---

diff --git a/v8/src/runtime/global.scm b/v8/src/runtime/global.scm
index b75a977d6..2403e1e9e 100644
--- 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 d093388cc..940acc421 100644
--- 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 e89cd1a57..b7432e2f9 100644
--- 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!)