diff options
Diffstat (limited to 'lux-jvm/source/luxc/lang/directive/jvm.lux')
| -rw-r--r-- | lux-jvm/source/luxc/lang/directive/jvm.lux | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/lux-jvm/source/luxc/lang/directive/jvm.lux b/lux-jvm/source/luxc/lang/directive/jvm.lux index 798cf8298..0ec4fb1d5 100644 --- a/lux-jvm/source/luxc/lang/directive/jvm.lux +++ b/lux-jvm/source/luxc/lang/directive/jvm.lux @@ -223,8 +223,8 @@ (-> /.Object Inst) (case instruction (^template [<tag> <inst>] - (<tag> class field-name field-type) - (<inst> class field-name field-type)) + [(<tag> class field-name field-type) + (<inst> class field-name field-type)]) ([#/.GETSTATIC _.GETSTATIC] [#/.PUTSTATIC _.PUTSTATIC] [#/.GETFIELD _.GETFIELD] @@ -236,8 +236,8 @@ (#/.CHECKCAST type) (_.CHECKCAST type) (^template [<tag> <inst>] - (<tag> class method-name method-type) - (<inst> class method-name method-type)) + [(<tag> class method-name method-type) + (<inst> class method-name method-type)]) ([#/.INVOKEINTERFACE _.INVOKEINTERFACE] [#/.INVOKESPECIAL _.INVOKESPECIAL] [#/.INVOKESTATIC _.INVOKESTATIC] @@ -402,9 +402,9 @@ (Re-labeler /.Branching) (case instruction (^template [<tag>] - (<tag> label) - (let [[mapping label] (..relabel [mapping label])] - [mapping (<tag> label)])) + [(<tag> label) + (let [[mapping label] (..relabel [mapping label])] + [mapping (<tag> label)])]) ([#/.IF_ICMPEQ] [#/.IF_ICMPGE] [#/.IF_ICMPGT] [#/.IF_ICMPLE] [#/.IF_ICMPLT] [#/.IF_ICMPNE] [#/.IFEQ] [#/.IFNE] [#/.IFGE] [#/.IFGT] [#/.IFLE] [#/.IFLT] @@ -444,16 +444,16 @@ (Re-labeler /.Control) (case instruction (^template [<tag> <relabel>] - (<tag> instruction) - (let [[mapping instruction] (<relabel> [mapping instruction])] - [mapping (<tag> instruction)])) + [(<tag> instruction) + (let [[mapping instruction] (<relabel> [mapping instruction])] + [mapping (<tag> instruction)])]) ([#/.GOTO ..relabel] [#/.Branching ..relabel-branching] [#/.Exception ..relabel-exception]) (^template [<tag>] - (<tag> instruction) - [mapping (<tag> instruction)]) + [(<tag> instruction) + [mapping (<tag> instruction)]]) ([#/.Concurrency] [#/.Return]) )) @@ -463,8 +463,8 @@ #/.NOP [mapping #/.NOP] (^template [<tag>] - (<tag> instruction) - [mapping (<tag> instruction)]) + [(<tag> instruction) + [mapping (<tag> instruction)]]) ([#/.Constant] [#/.Arithmetic] [#/.Bitwise] |