From 82ca344e96e6910075119a54ff15a5f2a1bdd110 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 28 May 1992 23:40:07 +0000 Subject: [PATCH] Upcase MITSCHEME_INF_DIRECTORY. --- v7/src/runtime/site.scm.dos | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/site.scm.dos b/v7/src/runtime/site.scm.dos index ded94ef9d..c611599b7 100644 --- a/v7/src/runtime/site.scm.dos +++ b/v7/src/runtime/site.scm.dos @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/site.scm.dos,v 1.6 1992/05/28 23:21:48 mhwu Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/site.scm.dos,v 1.7 1992/05/28 23:40:07 jinx Exp $ Copyright (c) 1988-1992 Massachusetts Institute of Technology @@ -49,13 +49,13 @@ MIT in each case. |# (->environment '(runtime compiler-info))))) (for-each (lambda (path) - (add-directory-rewriting-rule! path "$mitscheme_inf_directory")) + (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" + (set-environment-variable! "MITSCHEME_INF_DIRECTORY" "c:/scheme"))))) (set-default-inf-directory!) (add-event-receiver! event:after-restart set-default-inf-directory!)) -- 2.25.1