Don't create useless directories in Lean

1 files changed, 4 insertions, 2 deletions

diff --git a/compiler/Translate.ml b/compiler/Translate.ml
index 3278aa6a..6bff936b 100644
--- a/compiler/Translate.ml
+++ b/compiler/Translate.ml
@@ -913,8 +913,10 @@ let translate_crate (filename : string) (dest_dir : string) (crate : A.crate) :
   if !Config.backend = Lean then (
     let ( ^^ ) = Filename.concat in
     mkdir_if (dest_dir ^^ "Base");
-    mkdir_if (dest_dir ^^ module_name);
-    if needs_clauses_module then mkdir_if (dest_dir ^^ module_name ^^ "Clauses"));
+    if !Config.split_files then mkdir_if (dest_dir ^^ module_name);
+    if needs_clauses_module then (
+      assert !Config.split_files;
+      mkdir_if (dest_dir ^^ module_name ^^ "Clauses")));
 
   (* Copy the "Primitives" file *)
   let _ =