Export compiled-code-block/filename to the global.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 0d68b2f11d4c4a9c877612effbc0ce6008f6c83f..7f6c36d835ff5ac20ba0ceca6ff9e37ec23846de 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.190 1993/08/13 00:07:04 cph Exp $
+$Id: runtime.pkg,v 14.191 1993/08/31 00:32:09 ziggy Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -221,6 +221,7 @@ MIT in each case. |#
   (files "infstr" "infutl")
   (parent ())
   (export ()
+         compiled-code-block/filename
          compiled-entry/block
          compiled-entry/dbg-object
          compiled-entry/filename
@@ -2507,4 +2508,4 @@ MIT in each case. |#
          thread-timer-interrupt-handler)
   (export (runtime primitive-io)
          block-on-input-descriptor)
-  (initialization (initialize-package!)))
\ No newline at end of file
+  (initialization (initialize-package!)))

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 0d68b2f11d4c4a9c877612effbc0ce6008f6c83f..7f6c36d835ff5ac20ba0ceca6ff9e37ec23846de 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.190 1993/08/13 00:07:04 cph Exp $
+$Id: runtime.pkg,v 14.191 1993/08/31 00:32:09 ziggy Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -221,6 +221,7 @@ MIT in each case. |#
   (files "infstr" "infutl")
   (parent ())
   (export ()
+         compiled-code-block/filename
          compiled-entry/block
          compiled-entry/dbg-object
          compiled-entry/filename
@@ -2507,4 +2508,4 @@ MIT in each case. |#
          thread-timer-interrupt-handler)
   (export (runtime primitive-io)
          block-on-input-descriptor)
-  (initialization (initialize-package!)))
\ No newline at end of file
+  (initialization (initialize-package!)))