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) (use-compiled-file-paths null)
(unless (with-handlers ([exn:fail:filesystem? (lambda (x) #f)]) (unless (with-handlers ([exn:fail:filesystem? (lambda (x) #f)])
(collection-path "mzlib")) (collection-path "racket"))
(let ([p (build-path (current-load-relative-directory) (let ([p (build-path (current-load-relative-directory)
'up 'up
'up 'up
'up 'up
"lib"
"collects")]) "collects")])
(printf "Setting collection path: ~s\n" p) (printf "Setting collection path: ~s\n" p)
(current-library-collection-paths (current-library-collection-paths