diff options
Diffstat (limited to 'src/lux/compiler.clj')
-rw-r--r-- | src/lux/compiler.clj | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/src/lux/compiler.clj b/src/lux/compiler.clj index 5dd2e3684..8b9e8bbed 100644 --- a/src/lux/compiler.clj +++ b/src/lux/compiler.clj @@ -257,14 +257,14 @@ ))) (defn compile-program [mode program-module source-dirs] - (init!) - (let [m-action (&/map% (&¶llel/parallel-compilation (partial compile-module source-dirs)) - (&/|list "lux" program-module))] - (|case (m-action (&/init-state mode)) - (&/$Right ?state _) - (do (println "Compilation complete!") - (&&cache/clean ?state) - (&packager-program/package program-module)) + (do (init!) + (let [m-action (|do [_ (compile-module source-dirs "lux")] + (compile-module source-dirs program-module))] + (|case (m-action (&/init-state mode)) + (&/$Right ?state _) + (do (println "Compilation complete!") + (&&cache/clean ?state) + (&packager-program/package program-module)) - (&/$Left ?message) - (assert false ?message)))) + (&/$Left ?message) + (assert false ?message))))) |