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/primitive.jvm.lux | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

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

diff --git a/new-luxc/source/luxc/generator/primitive.jvm.lux b/new-luxc/source/luxc/generator/primitive.jvm.lux
index fc6ffae1f..571ba4835 100644
--- a/new-luxc/source/luxc/generator/primitive.jvm.lux
+++ b/new-luxc/source/luxc/generator/primitive.jvm.lux
@@ -2,8 +2,9 @@
   lux
   (lux (control monad)
        (data text/format)
-       [meta #+ Monad<Meta> "Meta/" Monad<Meta>])
+       [meta "meta/" Monad<Meta>])
   (luxc ["&" base]
+        [";L" host]
         (lang ["la" analysis]
               ["ls" synthesis])
         ["&;" analyser]
@@ -16,18 +17,18 @@
 
 (def: #export generate-unit
   (Meta $;Inst)
-  (Meta/wrap ($i;string ../runtime;unit)))
+  (meta/wrap ($i;string hostL;unit)))
 
 (def: #export (generate-bool value)
   (-> Bool (Meta $;Inst))
-  (Meta/wrap ($i;GETSTATIC "java.lang.Boolean"
+  (meta/wrap ($i;GETSTATIC "java.lang.Boolean"
                            (if value "TRUE" "FALSE")
                            ($t;class "java.lang.Boolean" (list)))))
 
 (do-template [<name> <type> <load> <wrap>]
   [(def: #export (<name> value)
      (-> <type> (Meta $;Inst))
-     (Meta/wrap (|>. (<load> value) <wrap>)))]
+     (meta/wrap (|>. (<load> value) <wrap>)))]
 
   [generate-nat  Nat  (|>. (:! Int) $i;long) ($i;wrap #$;Long)]
   [generate-int  Int  $i;long ($i;wrap #$;Long)]
-- 
cgit v1.2.3