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 25b6ee5631e684a920a950cfac5960151e826b2e..0d3cbff03c90fba2d0ae830bf3509851f316a360 100644 (file)
--- 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))