From b4a1674c59e259cfad11423a3e996152fd5529db Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sat, 17 Oct 1992 22:24:21 +0000 Subject: [PATCH] Use set-environment-variable-default! instead of an event receiver. In this way the order is guaranteed to be correct. --- v7/src/runtime/site.scm.dos | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/v7/src/runtime/site.scm.dos b/v7/src/runtime/site.scm.dos index acf8446be..c00c69ee7 100644 --- 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") -- 2.25.1