From 832a9361b632331e82a64c07baa560487ca8abde Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Tue, 29 Dec 2020 00:38:21 -0400 Subject: Moved "lux/data/number" to "lux/math/number". --- lux-jvm/source/luxc/lang/host/jvm.lux | 34 +++++++++++++++++----------------- 1 file changed, 17 insertions(+), 17 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 dea97851a..c2a2a6f41 100644 --- a/lux-jvm/source/luxc/lang/host/jvm.lux +++ b/lux-jvm/source/luxc/lang/host/jvm.lux @@ -84,20 +84,20 @@ (type: #export (Generator i) (-> Phase Archive i (Operation Inst))) -(syntax: (config: {type s.local-identifier} - {none s.local-identifier} - {++ s.local-identifier} - {options (s.tuple (p.many s.local-identifier))}) - (let [g!type (code.local-identifier type) - g!none (code.local-identifier none) - g!tags+ (list/map code.local-tag options) - g!_left (code.local-identifier "_left") - g!_right (code.local-identifier "_right") +(syntax: (config: {type s.local_identifier} + {none s.local_identifier} + {++ s.local_identifier} + {options (s.tuple (p.many s.local_identifier))}) + (let [g!type (code.local_identifier type) + g!none (code.local_identifier none) + g!tags+ (list/map code.local_tag options) + g!_left (code.local_identifier "_left") + g!_right (code.local_identifier "_right") g!options+ (list/map (function (_ option) - (` (def: (~' #export) (~ (code.local-identifier option)) + (` (def: (~' #export) (~ (code.local_identifier option)) (~ g!type) (|> (~ g!none) - (set@ (~ (code.local-tag option)) #1))))) + (set@ (~ (code.local_tag option)) #1))))) options)] (wrap (list& (` (type: (~' #export) (~ g!type) (~ (code.record (list/map (function (_ tag) @@ -110,7 +110,7 @@ [tag (` #0)]) g!tags+))))) - (` (def: (~' #export) ((~ (code.local-identifier ++)) (~ g!_left) (~ g!_right)) + (` (def: (~' #export) ((~ (code.local_identifier ++)) (~ g!_left) (~ g!_right)) (-> (~ g!type) (~ g!type) (~ g!type)) (~ (code.record (list/map (function (_ tag) [tag (` (or (get@ (~ tag) (~ g!_left)) @@ -119,15 +119,15 @@ g!options+)))) -(config: Class-Config noneC ++C [finalC]) -(config: Method-Config noneM ++M [finalM staticM synchronizedM strictM]) -(config: Field-Config noneF ++F [finalF staticF transientF volatileF]) +(config: Class_Config noneC ++C [finalC]) +(config: Method_Config noneM ++M [finalM staticM synchronizedM strictM]) +(config: Field_Config noneF ++F [finalF staticF transientF volatileF]) -(def: #export new-label +(def: #export new_label (-> Any Label) (function (_ _) (org/objectweb/asm/Label::new))) -(def: #export (simple-class name) +(def: #export (simple_class name) (-> Text (Type Class)) (type.class name (list))) -- cgit v1.2.3