From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 27 Sep 1996 23:06:22 +0000 (+0000)
Subject: Change 6.001 package to put the student root directory in the user's
X-Git-Tag: 20090517-FFI~5391
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=27d2f94503ec910b9153df3380b39baca5f1029f;p=mit-scheme.git

Change 6.001 package to put the student root directory in the user's
home directory, rather than using an absolute pathname that might not
exist on a given system.
---

diff --git a/v7/src/6001/make.scm b/v7/src/6001/make.scm
index 25b6ee563..0d3cbff03 100644
--- a/v7/src/6001/make.scm
+++ b/v7/src/6001/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 15.23 1995/02/24 00:38:28 cph Exp $
+$Id: make.scm,v 15.24 1996/09/27 23:06:22 cph Exp $
 
 Copyright (c) 1991-95 Massachusetts Institute of Technology
 
@@ -60,8 +60,7 @@ MIT in each case. |#
 (set! user-initial-environment (->environment '(student)))
 
 (in-package (->environment '(edwin))
-  (set! student-root-directory
-	(merge-pathnames "/users/u6001/" (user-homedir-pathname)))
+  (set! student-root-directory (user-homedir-pathname))
   (set! student-work-directory
 	(merge-pathnames "work/" student-root-directory))
   (set! pset-directory (merge-pathnames "psets/" student-root-directory))