From b472468f9bbb8fc48804929dea8515144f2bd533 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Fri, 20 Jul 1990 01:21:23 +0000 Subject: [PATCH] Add package definition for package (runtime program-copier). --- v7/src/runtime/runtime.pkg | 11 ++++++++++- v8/src/runtime/runtime.pkg | 11 ++++++++++- 2 files changed, 20 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg index 90509d556..d531b339b 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.71 1990/07/16 17:12:12 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.72 1990/07/20 01:21:23 jinx Exp $ Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology @@ -228,6 +228,8 @@ MIT in each case. |# dbg-info-vector/purification-root dbg-info-vector? fasload/update-debugging-info!) + (export (runtime program-copier) + dbg-info-vector?) (export (runtime debugger-command-loop) special-form-procedure-name?) (export (runtime environment) @@ -1336,6 +1338,13 @@ MIT in each case. |# tty-input-channel) (initialization (initialize-package!))) +(define-package (runtime program-copier) + (files "prgcop") + (parent ()) + (export () + copy-program) + (initialization (initialize-package!))) + (define-package (runtime random-number) (files "random") (parent ()) diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg index 53a489d0b..1b67bebfd 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.71 1990/07/16 17:12:12 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.72 1990/07/20 01:21:23 jinx Exp $ Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology @@ -228,6 +228,8 @@ MIT in each case. |# dbg-info-vector/purification-root dbg-info-vector? fasload/update-debugging-info!) + (export (runtime program-copier) + dbg-info-vector?) (export (runtime debugger-command-loop) special-form-procedure-name?) (export (runtime environment) @@ -1336,6 +1338,13 @@ MIT in each case. |# tty-input-channel) (initialization (initialize-package!))) +(define-package (runtime program-copier) + (files "prgcop") + (parent ()) + (export () + copy-program) + (initialization (initialize-package!))) + (define-package (runtime random-number) (files "random") (parent ()) -- 2.25.1