fix "collects" path setup in 3m build

This commit is contained in:
Matthew Flatt 2013-07-10 13:41:06 -06:00
parent da3ac6159d
commit 30a1c3565d

View File

@ -15,11 +15,12 @@
(use-compiled-file-paths null)
(unless (with-handlers ([exn:fail:filesystem? (lambda (x) #f)])
(collection-path "mzlib"))
(collection-path "racket"))
(let ([p (build-path (current-load-relative-directory)
'up
'up
'up
"lib"
"collects")])
(printf "Setting collection path: ~s\n" p)
(current-library-collection-paths