From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 15 Apr 1989 01:24:38 +0000 (+0000)
Subject: Export new procedure `%make-combination' to the debugging-info
X-Git-Tag: 20090517-FFI~12182
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a9bcbd67cab7a68473ebf6a1007a038b9490184c;p=mit-scheme.git

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 21a87f3e9..fd41b26eb 100644
--- 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 55d962953..bd510f77c 100644
--- 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)