diff options
Diffstat (limited to 'stdlib/source/library/lux/target/jvm/bytecode/environment/limit/registry.lux')
-rw-r--r-- | stdlib/source/library/lux/target/jvm/bytecode/environment/limit/registry.lux | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/stdlib/source/library/lux/target/jvm/bytecode/environment/limit/registry.lux b/stdlib/source/library/lux/target/jvm/bytecode/environment/limit/registry.lux index b1d51e164..04bf00456 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode/environment/limit/registry.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode/environment/limit/registry.lux @@ -22,7 +22,8 @@ [category (#+ Method)] ["#/." parser]]]) -(type: .public Register U1) +(type: .public Register + U1) (def: normal 1) (def: wide 2) @@ -40,11 +41,11 @@ (-> (Type Method) Nat) (let [[type_variables inputs output exceptions] (/////type/parser.method type)] (|> inputs - (list\map (function (_ input) - (if (or (same? /////type.long input) - (same? /////type.double input)) - ..wide - ..normal))) + (list\each (function (_ input) + (if (or (same? /////type.long input) + (same? /////type.double input)) + ..wide + ..normal))) (list\mix n.+ 0)))) (template [<start> <name>] @@ -53,7 +54,7 @@ (|>> ..minimal (n.+ <start>) /////unsigned.u2 - (try\map ..registry)))] + (try\each ..registry)))] [0 static] [1 virtual] @@ -61,7 +62,7 @@ (def: .public equivalence (Equivalence Registry) - (\ equivalence.functor map + (\ equivalence.functor each (|>> :representation) /////unsigned.equivalence)) |