aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/target/jvm/bytecode/environment/limit/registry.lux
diff options
context:
space:
mode:
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.lux17
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))