create compiled/native/XXXX/3m in the collection dir

svn: r1112
2005-10-20 16:25:53 +00:00 · 2005-10-20 16:25:53 +00:00 · 9aafd3a272
commit 9aafd3a272
parent f5b9db7565
1 changed files with 3 additions and 1 deletions
--- a/collects/make/setup-extension.ss
+++ b/collects/make/setup-extension.ss
@ -63,7 +63,9 @@
      ;; Maybe do 3m mode:
      (when (and 3m-too?
 		 (memq '3m (available-mzscheme-variants)))
-	(let ([3m-dir (build-path "compiled" "native" (system-library-subpath #f) "3m")])
+	(let ([3m-dir (build-path collection-dir 
+				  "compiled" "native" 
+				  (system-library-subpath #f) "3m")])
 	  (make-directory* 3m-dir)
 	  (parameterize ([link-variant '3m])
 	    (go (build-path 3m-dir (let-values ([(base name dir?) (split-path file.c)])