From fb7a90d4c56d5e4e726f1e83dc951fa46d36ffdb Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Sun, 8 Sep 2019 21:17:40 -0400 Subject: Some fixes. --- new-luxc/source/luxc/lang/host/jvm/inst.lux | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'new-luxc/source/luxc/lang/host/jvm/inst.lux') 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 [ ] [(def: ( type) -- cgit v1.2.3