diff options
Diffstat (limited to '')
| -rw-r--r-- | new-luxc/source/luxc/lang/host/jvm.lux | 10 | ||||
| -rw-r--r-- | new-luxc/source/luxc/lang/host/jvm/inst.lux | 4 |
2 files changed, 7 insertions, 7 deletions
diff --git a/new-luxc/source/luxc/lang/host/jvm.lux b/new-luxc/source/luxc/lang/host/jvm.lux index c76c5144d..3fb55d2f9 100644 --- a/new-luxc/source/luxc/lang/host/jvm.lux +++ b/new-luxc/source/luxc/lang/host/jvm.lux @@ -80,10 +80,10 @@ #V1_8) ## [Values] -(syntax: (config: [type s.local-symbol] - [none s.local-symbol] - [++ s.local-symbol] - [options (s.tuple (p.many s.local-symbol))]) +(syntax: (config: {type s.local-symbol} + {none s.local-symbol} + {++ s.local-symbol} + {options (s.tuple (p.many s.local-symbol))}) (let [g!type (code.local-symbol type) g!none (code.local-symbol none) g!tags+ (list/map code.local-tag options) @@ -122,7 +122,7 @@ ## Labels (def: #export new-label - (-> Unit Label) + (-> Top Label) org/objectweb/asm/Label::new) (def: #export (simple-class name) diff --git a/new-luxc/source/luxc/lang/host/jvm/inst.lux b/new-luxc/source/luxc/lang/host/jvm/inst.lux index f993f0c48..d088c5324 100644 --- a/new-luxc/source/luxc/lang/host/jvm/inst.lux +++ b/new-luxc/source/luxc/lang/host/jvm/inst.lux @@ -18,7 +18,7 @@ (host.import #long java/lang/Object) (host.import #long java/lang/String) -(syntax: (declare [codes (p.many s.local-symbol)]) +(syntax: (declare {codes (p.many s.local-symbol)}) (|> codes (list/map (function (_ code) (` ((~' #static) (~ (code.local-symbol code)) (~' int))))) wrap)) @@ -135,7 +135,7 @@ [string Text id] ) -(syntax: (prefix [base s.local-symbol]) +(syntax: (prefix {base s.local-symbol}) (wrap (list (code.local-symbol (format "Opcodes::" base))))) (def: #export NULL |