Fix a few things regarding plthome and dll location

svn: r2781

collects/setup/info.ss

@@ -3,7 +3,7 @@
   (define doc.txt "doc.txt")
 
   (define compile-omit-files
-    (list "setup.ss" "winstall.ss"))
+    (list "setup.ss"))
 
   (define mzscheme-launcher-libraries (list "setup.ss"))
   (define mzscheme-launcher-names (list "Setup PLT"))

collects/setup/winstall.ss

@@ -1,9 +0,0 @@
-;; sets directories for Windows installation
-
-(let ([plthome (build-path 
-		(current-load-relative-directory) 
-		'up 'up)])
-  (putenv "PLTHOME" plthome)
-  (current-library-collection-paths 
-   (list (build-path plthome "collects"))))
-

collects/setup/winvers.ss

@@ -10,8 +10,8 @@
       (for-each (lambda (p)
                   (let ([dest (build-path vers p)])
                     (when (file-exists? dest) (delete-file dest))
-                    (copy-file (build-path plthome p) dest)))
-                '("mzscheme.exe" "libmzgcxxxxxxx.dll" "libmzschxxxxxxx.dll"))
+                    (copy-directory/files (build-path plthome p) dest)))
+                '("mzscheme.exe" "lib"))
       (build-path vers "mzscheme.exe")))
 
   (define (patch-files)

teachpack/htdc/Docs/mkdocs

@@ -7,7 +7,7 @@ else
 fi
 |#
 
-(require (lib "etc.ss") (lib "plthome.ss" "setup"))
+(require (lib "etc.ss"))
 (current-directory (this-expression-source-directory))
 
 ; for john?
@@ -18,7 +18,7 @@ fi
     #"An Imperative Drawing Library (HtDC)"
     ))
 
-(define dest-dir (build-path plthome "collects" "doc" "teachpack-htdc"))
+(define dest-dir (build-path (collection-path "doc") "teachpack-htdc"))
 (printf "writing docs to ~s\n" (path->string dest-dir))
 
 (require (lib "list.ss"))