aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang
diff options
context:
space:
mode:
authorEduardo Julian2017-11-23 19:11:27 -0400
committerEduardo Julian2017-11-23 19:11:27 -0400
commit74fd0966b60a3594b5f6d289d837207718352ef2 (patch)
tree95d4eb6a6eb0682c0e8b91abe64e2c470f7dc23f /new-luxc/source/luxc/lang
parent5a619fc3978d1ded629f7c255d1c1c672033ad54 (diff)
- Added REPL.
Diffstat (limited to 'new-luxc/source/luxc/lang')
-rw-r--r--new-luxc/source/luxc/lang/translation.lux6
1 files changed, 3 insertions, 3 deletions
diff --git a/new-luxc/source/luxc/lang/translation.lux b/new-luxc/source/luxc/lang/translation.lux
index 80484b7e8..86b9842b6 100644
--- a/new-luxc/source/luxc/lang/translation.lux
+++ b/new-luxc/source/luxc/lang/translation.lux
@@ -69,7 +69,7 @@
_
(&;throw Invalid-Alias def-name)))
-(def: (translate translate-module aliases code)
+(def: #export (translate translate-module aliases code)
(-> (-> Text Compiler (Process Compiler)) Aliases Code (Meta Aliases))
(case code
(^code ((~ [_ (#;Symbol macro-name)]) (~@ args)))
@@ -174,7 +174,7 @@
output
output)))
-(def: prelude Text "lux")
+(def: #export prelude Text "lux")
(def: (with-active-compilation [module-name file-name source-code] action)
(All [a] (-> [Text Text Text] (Meta a) (Meta a)))
@@ -196,7 +196,7 @@
(#e;Success [(set@ #;source source' compiler)
output]))))
-(def: (translate-module source-dirs target-dir module-name compiler)
+(def: #export (translate-module source-dirs target-dir module-name compiler)
(-> (List File) File Text Compiler (Process Compiler))
(do io;Monad<Process>
[## _ (&io;prepare-module target-dir module-name)