From b7d53027deeb185fa7b4312ba7079aa566762513 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Fri, 5 Jan 2018 00:00:05 -0400 Subject: - Added "lux program" compilation. --- new-luxc/source/luxc/lang/extension/statement.lux | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'new-luxc/source/luxc/lang/extension') diff --git a/new-luxc/source/luxc/lang/extension/statement.lux b/new-luxc/source/luxc/lang/extension/statement.lux index 7cb404b13..afabf867b 100644 --- a/new-luxc/source/luxc/lang/extension/statement.lux +++ b/new-luxc/source/luxc/lang/extension/statement.lux @@ -12,6 +12,7 @@ [//] (luxc [lang] (lang [".L" host] + [".L" scope] (host ["$" jvm]) (analysis [".A" common] [".A" expression]) @@ -98,11 +99,12 @@ (case inputsC+ (^ (list [_ (#.Symbol ["" args])] programC)) (do macro.Monad - [[_ programA] (lang.with-scope - (lang.with-type (type (IO Unit)) - (expressionA.analyser evalL.eval programC))) + [[_ programA] (<| lang.with-scope + (scopeL.with-local [args (type (List Text))]) + (lang.with-type (type (IO Unit))) + (expressionA.analyser evalL.eval programC)) programI (expressionT.translate (expressionS.synthesize programA)) - _ (statementT.translate-program args programI)] + _ (statementT.translate-program programI)] (wrap [])) _ -- cgit v1.2.3