From c3eab65e3f107f7acdc0c0354770f9b8fbd92c4f Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 23 Jun 2020 03:02:15 -0400
Subject: Bug fixes.

---
 lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux | 5 +++--
 1 file changed, 3 insertions(+), 2 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 c25151bcf..31846598e 100644
--- a/lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux
+++ b/lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux
@@ -804,8 +804,9 @@
                 arguments (<s>.tuple (<>.some ..argument))
                 returnT ..return
                 exceptionsT (<s>.tuple (<>.some ..class))
-                [environment body] (<s>.function 1
-                                     (<s>.tuple <s>.any))]
+                [environment _ _ body] (<s>.function 1
+                                         (<s>.loop (<>.exactly 0 <s>.any)
+                                           (<s>.tuple <s>.any)))]
                (wrap [environment
                       [ownerT name
                        strict-fp? annotations vars
-- 
cgit v1.2.3