aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc')
-rw-r--r--new-luxc/source/luxc/base.lux5
-rw-r--r--new-luxc/source/luxc/compiler.lux6
2 files changed, 6 insertions, 5 deletions
diff --git a/new-luxc/source/luxc/base.lux b/new-luxc/source/luxc/base.lux
index 8660d7ccf..bc05afea4 100644
--- a/new-luxc/source/luxc/base.lux
+++ b/new-luxc/source/luxc/base.lux
@@ -10,8 +10,9 @@
(type: #export Path Text)
(type: #export Mode
- #Release
- #Debug)
+ #Build
+ #Eval
+ #REPL)
(def: #export (fail message)
(All [a] (-> Text (Lux a)))
diff --git a/new-luxc/source/luxc/compiler.lux b/new-luxc/source/luxc/compiler.lux
index 12966ba00..67a9928fd 100644
--- a/new-luxc/source/luxc/compiler.lux
+++ b/new-luxc/source/luxc/compiler.lux
@@ -118,7 +118,7 @@
(def: init-compiler-info
Compiler-Info
{#;compiler-version compiler-version
- #;compiler-mode #;Release})
+ #;compiler-mode #;Build})
(def: (init-compiler host)
(-> Host Compiler)
@@ -144,8 +144,8 @@
(#E;Success output)
(wrap output))))
-(def: #export (compile-program mode program target sources)
- (-> &;Mode &;Path &;Path (List &;Path) (P;Promise Unit))
+(def: #export (compile-program program target sources)
+ (-> &;Path &;Path (List &;Path) (P;Promise Unit))
(do P;Monad<Promise>
[#let [compiler (init-compiler init-host)]
_ (or-crash! (&&runtime;compile-runtime []))