diff options
Diffstat (limited to 'lux-jvm/source/luxc/lang/host')
| -rw-r--r-- | lux-jvm/source/luxc/lang/host/jvm.lux | 24 | ||||
| -rw-r--r-- | lux-jvm/source/luxc/lang/host/jvm/inst.lux | 4 |
2 files changed, 14 insertions, 14 deletions
diff --git a/lux-jvm/source/luxc/lang/host/jvm.lux b/lux-jvm/source/luxc/lang/host/jvm.lux index dc942529d..22d901d51 100644 --- a/lux-jvm/source/luxc/lang/host/jvm.lux +++ b/lux-jvm/source/luxc/lang/host/jvm.lux @@ -94,20 +94,20 @@ (type: .public (Generator i) (-> Phase Archive i (Operation Inst))) -(syntax: (config: [type <code>.local_symbol - none <code>.local_symbol - ++ <code>.local_symbol - options (<code>.tuple (<>.many <code>.local_symbol))]) - (let [g!type (code.local_symbol type) - g!none (code.local_symbol none) - g!tags+ (list#each (|>> (format "#") code.local_symbol) options) - g!_left (code.local_symbol "_left") - g!_right (code.local_symbol "_right") +(syntax: (config: [type <code>.local + none <code>.local + ++ <code>.local + options (<code>.tuple (<>.many <code>.local))]) + (let [g!type (code.local type) + g!none (code.local none) + g!tags+ (list#each (|>> (format "#") code.local) options) + g!_left (code.local "_left") + g!_right (code.local "_right") g!options+ (list#each (function (_ option) - (` (def: .public (~ (code.local_symbol option)) + (` (def: .public (~ (code.local option)) (~ g!type) (|> (~ g!none) - (has (~ (code.local_symbol (format "#" option))) #1))))) + (has (~ (code.local (format "#" option))) #1))))) options)] (in (list& (` (type: .public (~ g!type) (.Record @@ -125,7 +125,7 @@ list#conjoint code.tuple)))) - (` (def: .public ((~ (code.local_symbol ++)) (~ g!_left) (~ g!_right)) + (` (def: .public ((~ (code.local ++)) (~ g!_left) (~ g!_right)) (-> (~ g!type) (~ g!type) (~ g!type)) (~ (|> g!tags+ (list#each (function (_ tag) diff --git a/lux-jvm/source/luxc/lang/host/jvm/inst.lux b/lux-jvm/source/luxc/lang/host/jvm/inst.lux index 8b75e4169..34074c43c 100644 --- a/lux-jvm/source/luxc/lang/host/jvm/inst.lux +++ b/lux-jvm/source/luxc/lang/host/jvm/inst.lux @@ -47,9 +47,9 @@ (import: java/lang/String "[1]::[0]") -(syntax: (declare [codes (p.many s.local_symbol)]) +(syntax: (declare [codes (p.many s.local)]) (|> codes - (list@each (function (_ code) (` ((~' "static") (~ (code.local_symbol code)) (~' int))))) + (list@each (function (_ code) (` ((~' "static") (~ (code.local code)) (~' int))))) in)) (`` (import: org/objectweb/asm/Opcodes |