From a9bcbd67cab7a68473ebf6a1007a038b9490184c Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 15 Apr 1989 01:24:38 +0000 Subject: [PATCH] Export new procedure `%make-combination' to the debugging-info package. --- v7/src/runtime/runtime.pkg | 5 ++++- v8/src/runtime/runtime.pkg | 5 ++++- 2 files changed, 8 insertions(+), 2 deletions(-) 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) -- 2.25.1