From 9a08039adfe40f76b9d5a5351005671c15b557bf Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 24 Jan 2022 23:38:55 -0400
Subject: Added explicit function inlining.

---
 lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'lux-jvm')

diff --git a/lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux b/lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux
index 78033cc96..28a5c34bc 100644
--- a/lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux
+++ b/lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux
@@ -1015,13 +1015,14 @@
         inputs! (|> inputsTI
                     list.enumeration
                     (list#each (function (_ [register [type term]])
-                                 (case (type.primitive? type)
-                                   {.#Right type}
-                                   (_.ALOAD (++ register))
-                                   
-                                   {.#Left type}
+                                 (let [then! (case (type.primitive? type)
+                                               {.#Right type}
+                                               (_.unwrap type)
+                                               
+                                               {.#Left type}
+                                               (_.CHECKCAST type))]
                                    (|>> (_.ALOAD (++ register))
-                                        (_.CHECKCAST type)))))
+                                        then!))))
                     _.fuse)
         store_capturedI (|> env
                             list.size
-- 
cgit v1.2.3