aboutsummaryrefslogtreecommitdiff
path: root/lux-jvm/source/luxc/lang/host
diff options
context:
space:
mode:
Diffstat (limited to 'lux-jvm/source/luxc/lang/host')
-rw-r--r--lux-jvm/source/luxc/lang/host/jvm.lux24
-rw-r--r--lux-jvm/source/luxc/lang/host/jvm/inst.lux4
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