From 3a848222b16f4f2aefc3cbff6fe7a26a83781fc9 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 23 Dec 1997 05:16:06 +0000 Subject: [PATCH] Add environment variable to specify the location of the 6.001 files. --- v7/src/6001/edextra.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/v7/src/6001/edextra.scm b/v7/src/6001/edextra.scm index 9a3a7c230..b498a46d3 100644 --- a/v7/src/6001/edextra.scm +++ b/v7/src/6001/edextra.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: edextra.scm,v 1.21 1996/09/28 18:29:33 cph Exp $ +$Id: edextra.scm,v 1.22 1997/12/23 05:16:06 cph Exp $ Copyright (c) 1992-95 Massachusetts Institute of Technology @@ -48,7 +48,11 @@ MIT in each case. |# (standard-login-initialization)))) (define (standard-login-initialization) - (set! student-root-directory "~u6001/") + (set! student-root-directory + (let ((6001-dir (get-environment-variable "MITSCHEME_6001_DIRECTORY"))) + (if (and 6001-dir (file-directory? 6001-dir)) + (pathname-as-directory 6001-dir) + "~u6001/"))) (set! student-work-directory "~/work/") (if (not (file-directory? student-root-directory)) (set! student-root-directory (user-homedir-pathname))) -- 2.25.1