From 220c804f9136c73058802575ee49f3f769d5599f Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Thu, 17 Mar 2022 04:29:59 -0400 Subject: De-sigil-ification: ! --- lux-jvm/source/luxc/lang/host/jvm.lux | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) (limited to 'lux-jvm/source/luxc/lang/host/jvm.lux') 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 .local_symbol - none .local_symbol - ++ .local_symbol - options (.tuple (<>.many .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 .local + none .local + ++ .local + options (.tuple (<>.many .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) -- cgit v1.2.3