aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/host/jvm/inst.lux
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/lang/host/jvm/inst.lux')
-rw-r--r--new-luxc/source/luxc/lang/host/jvm/inst.lux12
1 files changed, 6 insertions, 6 deletions
diff --git a/new-luxc/source/luxc/lang/host/jvm/inst.lux b/new-luxc/source/luxc/lang/host/jvm/inst.lux
index 4c9346d64..d5d7cb1fb 100644
--- a/new-luxc/source/luxc/lang/host/jvm/inst.lux
+++ b/new-luxc/source/luxc/lang/host/jvm/inst.lux
@@ -374,14 +374,14 @@
(do-to visitor
(org/objectweb/asm/MethodVisitor::visitLabel @label))))
-(def: #export (array type)
+(def: #export (array elementT)
(-> (Type Value) Inst)
- (case (type.primitive? type)
- (#.Left object)
- (ANEWARRAY object)
+ (case (type.primitive? elementT)
+ (#.Left elementT)
+ (ANEWARRAY elementT)
- (#.Right primitive)
- (NEWARRAY primitive)))
+ (#.Right elementT)
+ (NEWARRAY elementT)))
(template [<name> <boolean> <byte> <short> <int> <long> <float> <double> <char>]
[(def: (<name> type)