diff options
Diffstat (limited to '')
| -rw-r--r-- | new-luxc/source/luxc/lang/translation.lux | 6 |
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) |