diff options
Diffstat (limited to '')
| -rw-r--r-- | new-luxc/source/luxc/generator.lux | 8 | ||||
| -rw-r--r-- | new-luxc/source/luxc/generator/expression.jvm.lux (renamed from new-luxc/source/luxc/generator/expr.jvm.lux) | 0 | ||||
| -rw-r--r-- | new-luxc/source/luxc/generator/statement.jvm.lux | 4 |
3 files changed, 5 insertions, 7 deletions
diff --git a/new-luxc/source/luxc/generator.lux b/new-luxc/source/luxc/generator.lux index ad5f578e3..90e0ca4cf 100644 --- a/new-luxc/source/luxc/generator.lux +++ b/new-luxc/source/luxc/generator.lux @@ -22,7 +22,7 @@ (generator ["&&;" runtime] ["&&;" statement] ["&&;" common] - ["&&;" expr] + [";G" expression] ["&&;" eval]) )) @@ -41,7 +41,7 @@ [[_ metaA] (&;with-scope (&;with-expected-type Code (analyse metaC))) - metaI (&&expr;generate (&synthesizer;synthesize metaA)) + metaI (expressionG;generate (&synthesizer;synthesize metaA)) metaV (&&eval;eval metaI) [_ valueT valueA] (&;with-scope (if (meta;type? (:! Code metaV)) @@ -51,7 +51,7 @@ (wrap [Type valueA]))) (&analyser/common;with-unknown-type (analyse valueC)))) - valueI (&&expr;generate (&synthesizer;synthesize valueA)) + valueI (expressionG;generate (&synthesizer;synthesize valueA)) _ (&;with-scope (&&statement;generate-def def-name valueT valueI metaI (:! Code metaV)))] (wrap [])) @@ -63,7 +63,7 @@ [[_ programA] (&;with-scope (&;with-expected-type (type (io;IO Unit)) (analyse programC))) - programI (&&expr;generate (&synthesizer;synthesize programA))] + programI (expressionG;generate (&synthesizer;synthesize programA))] (&&statement;generate-program program-args programI)) _ diff --git a/new-luxc/source/luxc/generator/expr.jvm.lux b/new-luxc/source/luxc/generator/expression.jvm.lux index 61120ef86..61120ef86 100644 --- a/new-luxc/source/luxc/generator/expr.jvm.lux +++ b/new-luxc/source/luxc/generator/expression.jvm.lux diff --git a/new-luxc/source/luxc/generator/statement.jvm.lux b/new-luxc/source/luxc/generator/statement.jvm.lux index 830935dda..6df522fb8 100644 --- a/new-luxc/source/luxc/generator/statement.jvm.lux +++ b/new-luxc/source/luxc/generator/statement.jvm.lux @@ -2,7 +2,6 @@ lux (lux (control monad ["ex" exception #+ exception:]) - (concurrency ["T" task]) (data ["e" error] [maybe] [text "text/" Monoid<Text>] @@ -14,8 +13,7 @@ ["&;" scope] ["&;" module] ["&;" io] - (generator ["&;" expr] - ["&;" eval] + (generator ["&;" eval] ["&;" common] (host ["$" jvm] (jvm ["$t" type] |