From 4b672d27a1a1a79643c43cf06917072cc97c1289 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 12 Oct 2017 18:14:19 -0400
Subject: - Compilation and tests for arrays.

---
 new-luxc/source/luxc/generator/structure.jvm.lux | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'new-luxc/source/luxc/generator/structure.jvm.lux')

diff --git a/new-luxc/source/luxc/generator/structure.jvm.lux b/new-luxc/source/luxc/generator/structure.jvm.lux
index a89f3083f..6aca0dca1 100644
--- a/new-luxc/source/luxc/generator/structure.jvm.lux
+++ b/new-luxc/source/luxc/generator/structure.jvm.lux
@@ -36,7 +36,9 @@
                                               memberI
                                               $i;AASTORE)))))
                   (:: @ map $i;fuse))]
-    (wrap (|>. ($i;array $Object size) membersI))))
+    (wrap (|>. ($i;int (nat-to-int size))
+               ($i;array $Object)
+               membersI))))
 
 (def: (flagI tail?)
   (-> Bool $;Inst)
-- 
cgit v1.2.3