From 5d401a09eeded0f3ecd9fb1ed3acdee30f99e197 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Thu, 4 May 2017 20:50:50 -0400 Subject: - Removed the "Debug" compiler mode. --- luxc/src/lux.clj | 5 +---- luxc/src/lux/base.clj | 5 ++--- 2 files changed, 3 insertions(+), 7 deletions(-) (limited to 'luxc/src') 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) -- cgit v1.2.3