From fae0047590c58260b060d860cb1993260756cb61 Mon Sep 17 00:00:00 2001 From: "Henry M. Wu" Date: Thu, 28 May 1992 23:32:16 +0000 Subject: [PATCH] Added reset-environment-variables! --- v7/src/runtime/dosprm.scm | 6 ++++-- v7/src/runtime/make.scm | 3 ++- v8/src/runtime/make.scm | 3 ++- 3 files changed, 8 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/dosprm.scm b/v7/src/runtime/dosprm.scm index e0cde5b23..4fdec139b 100644 --- a/v7/src/runtime/dosprm.scm +++ b/v7/src/runtime/dosprm.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dosprm.scm,v 1.5 1992/05/28 23:18:18 mhwu Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dosprm.scm,v 1.6 1992/05/28 23:31:22 mhwu Exp $ Copyright (c) 1992 Massachusetts Institute of Technology @@ -207,4 +207,6 @@ MIT in each case. |# ;;; Queues after-restart daemon to clean up environment space -(add-event-receiver! event:after-restart reset-environment-variables!) +(define (initialize-system-primitives!) + (add-event-receiver! event:after-restart reset-environment-variables!)) + diff --git a/v7/src/runtime/make.scm b/v7/src/runtime/make.scm index 576fadb24..a7aca0a23 100644 --- a/v7/src/runtime/make.scm +++ b/v7/src/runtime/make.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/make.scm,v 14.35 1992/04/11 23:48:12 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/make.scm,v 14.36 1992/05/28 23:32:16 mhwu Exp $ Copyright (c) 1988-1992 Massachusetts Institute of Technology @@ -385,6 +385,7 @@ MIT in each case. |# (RUNTIME EMACS-INTERFACE))) (package-initialize '(RUNTIME CONTINUATION-PARSER) 'INITIALIZE-SPECIAL-FRAMES! false) +(package-initialize '() 'INITIALIZE-SYSTEM-PRIMITIVES! false) (let ((filename (map-filename "site"))) (if (file-exists? filename) diff --git a/v8/src/runtime/make.scm b/v8/src/runtime/make.scm index 6842df511..339606ef8 100644 --- a/v8/src/runtime/make.scm +++ b/v8/src/runtime/make.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/make.scm,v 14.35 1992/04/11 23:48:12 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/make.scm,v 14.36 1992/05/28 23:32:16 mhwu Exp $ Copyright (c) 1988-1992 Massachusetts Institute of Technology @@ -385,6 +385,7 @@ MIT in each case. |# (RUNTIME EMACS-INTERFACE))) (package-initialize '(RUNTIME CONTINUATION-PARSER) 'INITIALIZE-SPECIAL-FRAMES! false) +(package-initialize '() 'INITIALIZE-SYSTEM-PRIMITIVES! false) (let ((filename (map-filename "site"))) (if (file-exists? filename) -- 2.25.1