10 lines
235 B
Scheme
10 lines
235 B
Scheme
;; 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"))))
|
|
|