From 7b870a7bd124f35939d9089a2e21f0806a4c6e85 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 29 Oct 2017 22:21:14 -0400
Subject: - Fixed some bugs. - Improved error reporting. - Implemented
 macro-expansion (for JVM). - Implemented "let" compilation.

---
 new-luxc/source/luxc/generator/procedure/host.jvm.lux | 7 ++++---
 1 file changed, 4 insertions(+), 3 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 f908c6c6e..fc6bdd01b 100644
--- a/new-luxc/source/luxc/generator/procedure/host.jvm.lux
+++ b/new-luxc/source/luxc/generator/procedure/host.jvm.lux
@@ -15,6 +15,7 @@
              ["s" syntax #+ syntax:])
        [host])
   (luxc ["&" base]
+        [";L" host]
         (lang ["la" analysis]
               ["ls" synthesis])
         ["&;" analyser]
@@ -494,13 +495,13 @@
           (wrap (|>. valueI
                      ($i;unwrap primitive)
                      ($i;PUTSTATIC class field (#$;Primitive primitive))
-                     ($i;string &runtime;unit))))
+                     ($i;string hostL;unit))))
         
         #;None
         (wrap (|>. valueI
                    ($i;CHECKCAST class)
                    ($i;PUTSTATIC class field ($t;class class (list)))
-                   ($i;string &runtime;unit)))))
+                   ($i;string hostL;unit)))))
 
     _
     (&;fail (format "Wrong syntax for '" proc "'."))))
@@ -655,7 +656,7 @@
   (case returnT
     #;None
     (|>. returnI
-         ($i;string &runtime;unit))
+         ($i;string hostL;unit))
 
     (#;Some type)
     (case type
-- 
cgit v1.2.3