diff options
| author | Eduardo Julian | 2020-03-19 21:18:58 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-03-19 21:18:58 -0400 |
| commit | 6b8678f818a5f7399a50f4e2108d96783d22fd67 (patch) | |
| tree | ade6d0a7b3c2dd7a826a90a56dc6e94600b59bbb /new-luxc/source/luxc/lang/translation/jvm/runtime.lux | |
| parent | 409deaa8f8a9727cf42762c8ac8ebe5b2766a04b (diff) | |
Got the new compiler to build again.
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/jvm/runtime.lux')
| -rw-r--r-- | new-luxc/source/luxc/lang/translation/jvm/runtime.lux | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/new-luxc/source/luxc/lang/translation/jvm/runtime.lux b/new-luxc/source/luxc/lang/translation/jvm/runtime.lux index 72763d01f..eb3ed9b7f 100644 --- a/new-luxc/source/luxc/lang/translation/jvm/runtime.lux +++ b/new-luxc/source/luxc/lang/translation/jvm/runtime.lux @@ -3,6 +3,8 @@ [abstract [monad (#+ do)]] [data + [text + ["%" format (#+ format)]] [collection ["." list ("#@." functor)]]] ["." math] @@ -27,6 +29,12 @@ ["_" inst]]]]] ["." // (#+ ByteCode)]) +(def: prefix "lux/") + +(def: #export (class-name [module id]) + (-> generation.Context Text) + (format ..prefix module "/" (%.nat id))) + (def: $Text (type.class "java.lang.String" (list))) (def: #export $Tag type.int) (def: #export $Flag (type.class "java.lang.Object" (list))) |