From 64ac2f552ec9e19131fc9671f14d14b0651cd988 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 26 Oct 2017 19:21:17 -0400
Subject: - Fixed some compiler tests.

---
 new-luxc/source/luxc/generator/procedure/host.jvm.lux | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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

diff --git a/new-luxc/source/luxc/generator/procedure/host.jvm.lux b/new-luxc/source/luxc/generator/procedure/host.jvm.lux
index a25c67feb..f908c6c6e 100644
--- a/new-luxc/source/luxc/generator/procedure/host.jvm.lux
+++ b/new-luxc/source/luxc/generator/procedure/host.jvm.lux
@@ -531,7 +531,7 @@
         #;None
         (wrap (|>. objectI
                    ($i;CHECKCAST class)
-                   ($i;GETFIELD class field ($t;class class (list)))))))
+                   ($i;GETFIELD class field ($t;class unboxed (list)))))))
 
     _
     (&;fail (format "Wrong syntax for '" proc "'."))))
@@ -557,18 +557,18 @@
                           _ (undefined))]
           (wrap (|>. objectI
                      ($i;CHECKCAST class)
+                     $i;DUP
                      valueI
                      ($i;unwrap primitive)
-                     ($i;PUTFIELD class field (#$;Primitive primitive))
-                     ($i;string &runtime;unit))))
+                     ($i;PUTFIELD class field (#$;Primitive primitive)))))
         
         #;None
         (wrap (|>. objectI
                    ($i;CHECKCAST class)
+                   $i;DUP
                    valueI
-                   ($i;CHECKCAST class)
-                   ($i;PUTFIELD class field ($t;class class (list)))
-                   ($i;string &runtime;unit)))))
+                   ($i;CHECKCAST unboxed)
+                   ($i;PUTFIELD class field ($t;class unboxed (list)))))))
 
     _
     (&;fail (format "Wrong syntax for '" proc "'."))))
-- 
cgit v1.2.3