Export STACK-FRAME/COMPILED-CODE? to global package.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 9d9bb97560a15cc114ea1324ab1ab250bcc79758..5bda388fa18dd3ea1d6b8b3e5d3738060870af59 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.141 1992/03/26 00:01:27 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.142 1992/04/02 07:53:22 cph Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -315,6 +315,7 @@ MIT in each case. |#
          stack-frame-type/properties
          stack-frame-type/subproblem?
          stack-frame-type?
+         stack-frame/compiled-code?
          stack-frame/dynamic-state
          stack-frame/elements
          stack-frame/interrupt-mask
@@ -333,8 +334,6 @@ MIT in each case. |#
          stack-frame/subproblem?
          stack-frame/type
          stack-frame?)
-  (export (runtime debugger)
-         stack-frame/compiled-code?)
   (export (runtime debugging-info)
          stack-frame-type/interrupt-compiled-procedure
          stack-frame-type/interrupt-compiled-expression)
@@ -2303,8 +2302,6 @@ MIT in each case. |#
          unparse-list/prefix-pair?
          unparse-list/unparser
          unparse-vector/unparser)
-  (export (runtime debugger)
-         *unparse-primitives-by-name?*)
   (initialization (initialize-package!)))
 
 (define-package (runtime unsyntaxer)

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index e5c3db2c1384aa3136e36c7520df60a3dc708309..d720464416c3dba58edcc2d7d9dc3c36958e6ced 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.141 1992/03/26 00:01:27 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.142 1992/04/02 07:53:22 cph Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -315,6 +315,7 @@ MIT in each case. |#
          stack-frame-type/properties
          stack-frame-type/subproblem?
          stack-frame-type?
+         stack-frame/compiled-code?
          stack-frame/dynamic-state
          stack-frame/elements
          stack-frame/interrupt-mask
@@ -333,8 +334,6 @@ MIT in each case. |#
          stack-frame/subproblem?
          stack-frame/type
          stack-frame?)
-  (export (runtime debugger)
-         stack-frame/compiled-code?)
   (export (runtime debugging-info)
          stack-frame-type/interrupt-compiled-procedure
          stack-frame-type/interrupt-compiled-expression)
@@ -2303,8 +2302,6 @@ MIT in each case. |#
          unparse-list/prefix-pair?
          unparse-list/unparser
          unparse-vector/unparser)
-  (export (runtime debugger)
-         *unparse-primitives-by-name?*)
   (initialization (initialize-package!)))
 
 (define-package (runtime unsyntaxer)