Export new procedure `%make-combination' to the debugging-info

package.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 21a87f3e95a534db7249499bca5cb96e3964d602..fd41b26eb7a4023140b7adea991f7ab2571437ce 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.33 1989/04/05 05:46:52 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.34 1989/04/15 01:24:38 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -1355,6 +1355,7 @@ MIT in each case. |#
          string->symbol
          string->uninterned-symbol
          symbol->string
+         symbol->string/downcase?
          symbol-append
          symbol-hash
          symbol?
@@ -1394,6 +1395,8 @@ MIT in each case. |#
          unassigned?-name
          unassigned??
          undefined-conditional-branch)
+  (export (runtime debugging-info)
+         %make-combination)
   (initialization (initialize-package!)))
 
 (define-package (runtime scode-data)

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 55d9629535ba9b24514ef176b5a7b76050cc01f8..bd510f77c96a1de92674bc9297ebd50e860f1671 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.33 1989/04/05 05:46:52 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.34 1989/04/15 01:24:38 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -1355,6 +1355,7 @@ MIT in each case. |#
          string->symbol
          string->uninterned-symbol
          symbol->string
+         symbol->string/downcase?
          symbol-append
          symbol-hash
          symbol?
@@ -1394,6 +1395,8 @@ MIT in each case. |#
          unassigned?-name
          unassigned??
          undefined-conditional-branch)
+  (export (runtime debugging-info)
+         %make-combination)
   (initialization (initialize-package!)))
 
 (define-package (runtime scode-data)