From 061fd8a209bbcaffc2bfb850ac6046752a567d50 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Tue, 27 Jul 2021 03:51:10 -0400 Subject: Re-named wrap => in && unwrap => out. --- lux-jvm/source/luxc/lang/host/jvm/inst.lux | 2 +- lux-jvm/source/luxc/lang/translation/jvm.lux | 2 +- lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux | 10 +++++----- lux-jvm/source/luxc/lang/translation/jvm/function.lux | 2 +- 4 files changed, 8 insertions(+), 8 deletions(-) (limited to 'lux-jvm/source/luxc') diff --git a/lux-jvm/source/luxc/lang/host/jvm/inst.lux b/lux-jvm/source/luxc/lang/host/jvm/inst.lux index 9447861e3..e86504d60 100644 --- a/lux-jvm/source/luxc/lang/host/jvm/inst.lux +++ b/lux-jvm/source/luxc/lang/host/jvm/inst.lux @@ -303,7 +303,7 @@ (do_to visitor (org/objectweb/asm/MethodVisitor::visitTypeInsn () (..class_name class)))))] - (~~ (template.splice +))))] + (~~ (template.spliced +))))] [Object [[CHECKCAST org/objectweb/asm/Opcodes::CHECKCAST] diff --git a/lux-jvm/source/luxc/lang/translation/jvm.lux b/lux-jvm/source/luxc/lang/translation/jvm.lux index 425a259aa..1b916d925 100644 --- a/lux-jvm/source/luxc/lang/translation/jvm.lux +++ b/lux-jvm/source/luxc/lang/translation/jvm.lux @@ -139,7 +139,7 @@ [existing_class? (|> (atom.read library) (\ io.monad map (function (_ library) (dictionary.key? library class_name))) - (try.lift io.monad) + (try.lifted io.monad) (: (IO (Try Bit)))) _ (if existing_class? (wrap []) diff --git a/lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux b/lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux index 89c7053f9..4f8210a47 100644 --- a/lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux +++ b/lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux @@ -102,7 +102,7 @@ (wrap elementJT) #.None - (<>.fail (exception.construct ..not_an_object_array arrayJT))) + (<>.failure (exception.construct ..not_an_object_array arrayJT))) #.None (undefined)))) @@ -619,7 +619,7 @@ [(reflection.reflection reflection.float) type.float] [(reflection.reflection reflection.double) type.double] [(reflection.reflection reflection.char) type.char]) - (dictionary.from_list text.hash))) + (dictionary.of_list text.hash))) (def: get::static Handler @@ -1096,14 +1096,14 @@ ## Combine them. list\join ## Remove duplicates. - (set.from_list synthesis.hash) + (set.of_list synthesis.hash) set.to_list) global_mapping (|> total_environment ## Give them names as "foreign" variables. list.enumeration (list\map (function (_ [id capture]) [capture (#variable.Foreign id)])) - (dictionary.from_list synthesis.hash)) + (dictionary.of_list synthesis.hash)) normalized_methods (list\map (function (_ [environment [ownerT name strict_fp? annotations vars @@ -1116,7 +1116,7 @@ (|> global_mapping (dictionary.get capture) maybe.assume)])) - (dictionary.from_list synthesis.hash))] + (dictionary.of_list synthesis.hash))] [ownerT name strict_fp? annotations vars self_name arguments returnT exceptionsT diff --git a/lux-jvm/source/luxc/lang/translation/jvm/function.lux b/lux-jvm/source/luxc/lang/translation/jvm/function.lux index 9e0f9f225..fcbfe1277 100644 --- a/lux-jvm/source/luxc/lang/translation/jvm/function.lux +++ b/lux-jvm/source/luxc/lang/translation/jvm/function.lux @@ -204,7 +204,7 @@ @labels (list@map $.new_label (list.repeat num_partials [])) over_extent (|> (.int function_arity) (i.- (.int apply_arity))) casesI (|> (list@compose @labels (list @default)) - (list.zip/2 (enum.range n.enum 0 num_partials)) + (list.zipped/2 (enum.range n.enum 0 num_partials)) (list@map (.function (_ [stage @label]) (let [load_partialsI (if (n.> 0 stage) (|> (enum.range n.enum 0 (dec stage)) -- cgit v1.2.3