diff options
-rw-r--r-- | compiler/Translate.ml | 6 |
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 _ = |