aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/compiler/default/phase/extension/analysis/host.jvm.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/lux/compiler/default/phase/extension/analysis/host.jvm.lux')
-rw-r--r--stdlib/source/lux/compiler/default/phase/extension/analysis/host.jvm.lux6
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/lux/compiler/default/phase/extension/analysis/host.jvm.lux b/stdlib/source/lux/compiler/default/phase/extension/analysis/host.jvm.lux
index 706d35e51..2713f59a2 100644
--- a/stdlib/source/lux/compiler/default/phase/extension/analysis/host.jvm.lux
+++ b/stdlib/source/lux/compiler/default/phase/extension/analysis/host.jvm.lux
@@ -604,7 +604,7 @@
(#.Primitive class-name (list))
arity
- (|> (list.n/range 0 (dec arity))
+ (|> (list.indices arity)
list.reverse
(list/map (|>> (n/* 2) inc #.Parameter))
(#.Primitive class-name)
@@ -976,8 +976,8 @@
(-> Nat Nat (List Type))
(if (n/= 0 amount)
(list)
- (|> (list.n/range offset (|> amount dec (n/+ offset)))
- (list/map idx-to-parameter))))
+ (|> (list.indices amount)
+ (list/map (|>> (n/+ offset) idx-to-parameter)))))
(def: (method-signature method-style method)
(-> Method-Style Method (Operation Method-Signature))