Added reset-environment-variables!

diff --git a/v7/src/runtime/dosprm.scm b/v7/src/runtime/dosprm.scm
index e0cde5b233ffbe2b60e552c99d52f3400bd70c06..4fdec139b399ee49be20fdc1144567f427b982d6 100644 (file)
--- 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. |#
 \f
 ;;; 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 576fadb24a238d53afc450cd3c7b9314df53895d..a7aca0a2372e9c8b31cea2dd66c8bd3244526a04 100644 (file)
--- 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)))
 \f
 (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 6842df511cfbe09c14576dadb68f54c7889807af..339606ef81ccdd7cf3bd906147cc38babe91b1af 100644 (file)
--- 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)))
 \f
 (package-initialize '(RUNTIME CONTINUATION-PARSER) 'INITIALIZE-SPECIAL-FRAMES! false)
+(package-initialize '() 'INITIALIZE-SYSTEM-PRIMITIVES! false)
 
 (let ((filename (map-filename "site")))
   (if (file-exists? filename)