Make assemblies output from compiling respect *compile-path*

clojure · Jan 21, 2012 · 4e4c64b · 4e4c64b
1 parent 49c1e6a
commit 4e4c64b
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/Clojure/Clojure/CljCompiler/Ast/GenContext.cs b/Clojure/Clojure/CljCompiler/Ast/GenContext.cs
@@ -71,7 +71,8 @@ public static GenContext CreateWithInternalAssembly(string assyName, bool create
 
         public static GenContext CreateWithExternalAssembly(string assyName, string extension, bool createDynInitHelper)
         {
-            return new GenContext(assyName, extension, System.IO.Directory.GetCurrentDirectory(),createDynInitHelper);
+            string path = Compiler.CompilePathVar.deref() as string;
+            return new GenContext(assyName, extension, path ?? System.IO.Directory.GetCurrentDirectory(),createDynInitHelper);
         }
 
 
@@ -85,7 +86,7 @@ private GenContext(string assyName, string extension, string directory, bool cre
 #endif
             if (directory != null)
             {
-                if (directory.Length > 0 && directory != ".")
+                if (directory.Length > 0 ) //&& directory != ".")
                     assyName = assyName.Replace("/", ".");
             }