diff options
Diffstat (limited to '')
| -rw-r--r-- | new-luxc/source/luxc/lang/translation/jvm/expression.jvm.lux (renamed from new-luxc/source/luxc/lang/translation/expression.jvm.lux) | 22 |
1 files changed, 13 insertions, 9 deletions
diff --git a/new-luxc/source/luxc/lang/translation/expression.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/expression.jvm.lux index 4496de784..82c8c0ec0 100644 --- a/new-luxc/source/luxc/lang/translation/expression.jvm.lux +++ b/new-luxc/source/luxc/lang/translation/jvm/expression.jvm.lux @@ -9,16 +9,17 @@ (macro ["s" syntax])) (luxc ["&" lang] (lang [".L" variable #+ Variable Register] + [".L" extension] (host ["$" jvm]) - ["ls" synthesis] - (translation [".T" common] - [".T" primitive] - [".T" structure] - [".T" eval] - [".T" procedure] - [".T" function] - [".T" reference] - [".T" case])))) + ["ls" synthesis])) + (// [".T" common] + [".T" primitive] + [".T" structure] + [".T" eval] + [".T" function] + [".T" reference] + [".T" case] + [".T" procedure])) (exception: #export Unrecognized-Synthesis) @@ -70,6 +71,9 @@ (^code ((~ [_ (#.Text procedure)]) (~+ argsS))) (procedureT.translate-procedure translate procedure argsS) + ## (do macro.Monad<Meta> + ## [translation (extensionL.find-translation procedure)] + ## (translation argsS)) _ (&.throw Unrecognized-Synthesis (%code synthesis)) |