diff options
Diffstat (limited to '')
| -rw-r--r-- | luxc/src/lux.clj | 5 | ||||
| -rw-r--r-- | luxc/src/lux/base.clj | 5 |
2 files changed, 3 insertions, 7 deletions
diff --git a/luxc/src/lux.clj b/luxc/src/lux.clj index 3ca520576..fc39b7b3b 100644 --- a/luxc/src/lux.clj +++ b/luxc/src/lux.clj @@ -20,10 +20,7 @@ (defn -main [& args] (|case (&/->list args) (&/$Cons "release" (&/$Cons platform (&/$Cons program-module (&/$Cons resources-dirs (&/$Cons source-dirs (&/$Cons target-dir (&/$Nil))))))) - (time (&compiler/compile-program platform &/$Release program-module (separate-paths resources-dirs) (separate-paths source-dirs) target-dir)) - - (&/$Cons "debug" (&/$Cons platform (&/$Cons program-module (&/$Cons resources-dirs (&/$Cons source-dirs (&/$Cons target-dir (&/$Nil))))))) - (time (&compiler/compile-program platform &/$Debug program-module (separate-paths resources-dirs) (separate-paths source-dirs) target-dir)) + (time (&compiler/compile-program platform &/$Build program-module (separate-paths resources-dirs) (separate-paths source-dirs) target-dir)) (&/$Cons "repl" (&/$Cons resources-dirs (&/$Cons source-dirs (&/$Cons target-dir (&/$Nil))))) (&repl/repl (separate-paths resources-dirs) diff --git a/luxc/src/lux/base.clj b/luxc/src/lux/base.clj index 7e36ca903..98b6ce4e8 100644 --- a/luxc/src/lux/base.clj +++ b/luxc/src/lux/base.clj @@ -134,8 +134,7 @@ ;; Compiler (defvariant - ("Release" 0) - ("Debug" 0) + ("Build" 0) ("Eval" 0) ("REPL" 0)) @@ -1006,7 +1005,7 @@ (|do [_mode get-mode] (fn [state] (let [output (body (if (in-repl? _mode) - (update$ $info #(set$ $compiler-mode $Debug %) state) + (update$ $info #(set$ $compiler-mode $Build %) state) state))] (|case output ($Right state* datum) |