diff options
Diffstat (limited to 'lux-jvm/source/luxc/lang/host/jvm.lux')
| -rw-r--r-- | lux-jvm/source/luxc/lang/host/jvm.lux | 24 |
1 files changed, 12 insertions, 12 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) |