Use set-environment-variable-default! instead of an event receiver.

In this way the order is guaranteed to be correct.

diff --git a/v7/src/runtime/site.scm.dos b/v7/src/runtime/site.scm.dos
index acf8446becb6f020dcd6f9c37073217b0dceba3d..c00c69ee78b20850f74c4f20c141ebffa039c4e7 100644 (file)
--- a/v7/src/runtime/site.scm.dos
+++ b/v7/src/runtime/site.scm.dos
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: site.scm.dos,v 1.10 1992/09/02 16:29:04 jinx Exp $
+$Id: site.scm.dos,v 1.11 1992/10/17 22:24:21 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -52,10 +52,4 @@ MIT in each case. |#
      (add-directory-rewriting-rule! path "$MITSCHEME_INF_DIRECTORY"))
    '("/scheme")))
 
-(let ((set-default-inf-directory!
-       (lambda ()
-        (if (not (get-environment-variable "MITSCHEME_INF_DIRECTORY"))
-            (set-environment-variable! "MITSCHEME_INF_DIRECTORY"
-                                       "c:/scheme")))))
-  (set-default-inf-directory!)
-  (add-event-receiver! event:after-restart set-default-inf-directory!))
+(set-environment-variable-default! "MITSCHEME_INF_DIRECTORY" "\\scheme")