diff options
| author | Eduardo Julian | 2018-01-05 00:00:05 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2018-01-05 00:00:05 -0400 |
| commit | b7d53027deeb185fa7b4312ba7079aa566762513 (patch) | |
| tree | 701defccbde1838cdeeb787746927f650c04ad97 /new-luxc/source/luxc/lang/extension/statement.lux | |
| parent | 303c462daf461c20f41edba3d0921062c8535fda (diff) | |
- Added "lux program" compilation.
Diffstat (limited to 'new-luxc/source/luxc/lang/extension/statement.lux')
| -rw-r--r-- | new-luxc/source/luxc/lang/extension/statement.lux | 10 |
1 files changed, 6 insertions, 4 deletions
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<Meta> - [[_ 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 [])) _ |