From 74fd0966b60a3594b5f6d289d837207718352ef2 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Thu, 23 Nov 2017 19:11:27 -0400 Subject: - Added REPL. --- new-luxc/source/luxc/lang/translation.lux | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'new-luxc/source/luxc/lang/translation.lux') 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 [## _ (&io;prepare-module target-dir module-name) -- cgit v1.2.3