From: Henry M. Wu <edu/mit/csail/zurich/mhwu>
Date: Thu, 28 May 1992 23:32:16 +0000 (+0000)
Subject: Added reset-environment-variables!
X-Git-Tag: 20090517-FFI~9315
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fae0047590c58260b060d860cb1993260756cb61;p=mit-scheme.git

Added reset-environment-variables!
---

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)