diff options
Diffstat (limited to 'stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/host.lux')
| -rw-r--r-- | stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/host.lux | 42 |
1 files changed, 21 insertions, 21 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/host.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/host.lux index 4dd8d10c4..61bd54986 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/host.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/host.lux @@ -7,7 +7,7 @@ [control ["[0]" maybe] ["[0]" try (.only Try)] - ["[0]" exception (.only exception:)] + ["[0]" exception (.only exception)] ["[0]" io (.only IO io)] [concurrency ["[0]" atom (.only Atom atom)]]] @@ -66,21 +66,21 @@ (def init::type (type.method [(list) (list) type.void (list)])) (def init::modifier (all modifier#composite method.public method.static method.strict)) -(exception: .public (cannot_load [class Text - error Text]) +(exception .public (cannot_load [class Text + error Text]) (exception.report "Class" class "Error" error)) -(exception: .public (invalid_field [class Text - field Text - error Text]) +(exception .public (invalid_field [class Text + field Text + error Text]) (exception.report "Class" class "Field" field "Error" error)) -(exception: .public (invalid_value [class Text]) +(exception .public (invalid_value [class Text]) (exception.report "Class" class)) @@ -116,20 +116,20 @@ {.#None} //type.value) bytecode (class.class version.v6_0 - class.public - (encoding/name.internal bytecode_name) - {.#None} - (encoding/name.internal "java.lang.Object") (list) - (list (field.field ..value::modifier //value.field #0 :value: (sequence.sequence))) - (list (method.method ..init::modifier "<clinit>" - #0 ..init::type - (list) - {.#Some - (all _.composite - valueG - (_.putstatic (type.class bytecode_name (list)) //value.field :value:) - _.return)})) - (sequence.sequence))] + class.public + (encoding/name.internal bytecode_name) + {.#None} + (encoding/name.internal "java.lang.Object") (list) + (list (field.field ..value::modifier //value.field #0 :value: (sequence.sequence))) + (list (method.method ..init::modifier "<clinit>" + #0 ..init::type + (list) + {.#Some + (all _.composite + valueG + (_.putstatic (type.class bytecode_name (list)) //value.field :value:) + _.return)})) + (sequence.sequence))] (io.run! (do [! (try.with io.monad)] [bytecode (at ! each (\\format.result class.writer) (io.io bytecode)) |