From 901b09dada43ec6f3b21618800ec7400fda54a0d Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 18 Oct 2017 12:42:46 -0400
Subject: - Updated to the latest changes in stdlib.

---
 new-luxc/source/luxc/generator/structure.jvm.lux | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

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

diff --git a/new-luxc/source/luxc/generator/structure.jvm.lux b/new-luxc/source/luxc/generator/structure.jvm.lux
index 6aca0dca1..cee5800cd 100644
--- a/new-luxc/source/luxc/generator/structure.jvm.lux
+++ b/new-luxc/source/luxc/generator/structure.jvm.lux
@@ -1,10 +1,9 @@
-
 (;module:
   lux
   (lux (control [monad #+ do])
        (data text/format
              (coll [list]))
-       [macro #+ Monad<Lux> "Lux/" Monad<Lux>]
+       [meta #+ Monad<Meta> "Meta/" Monad<Meta>]
        [host #+ do-to])
   (luxc ["&" base]
         (lang ["la" analysis]
@@ -21,8 +20,8 @@
 (def: $Object $;Type ($t;class "java.lang.Object" (list)))
 
 (def: #export (generate-tuple generate members)
-  (-> (-> ls;Synthesis (Lux $;Inst)) (List ls;Synthesis) (Lux $;Inst))
-  (do Monad<Lux>
+  (-> (-> ls;Synthesis (Meta $;Inst)) (List ls;Synthesis) (Meta $;Inst))
+  (do Monad<Meta>
     [#let [size (list;size members)]
      _ (&;assert "Cannot generate tuples with less than 2 elements."
                  (n.>= +2 size))
@@ -47,8 +46,8 @@
     $i;NULL))
 
 (def: #export (generate-variant generate tag tail? member)
-  (-> (-> ls;Synthesis (Lux $;Inst)) Nat Bool ls;Synthesis (Lux $;Inst))
-  (do Monad<Lux>
+  (-> (-> ls;Synthesis (Meta $;Inst)) Nat Bool ls;Synthesis (Meta $;Inst))
+  (do Monad<Meta>
     [memberI (generate member)]
     (wrap (|>. ($i;int (nat-to-int tag))
                (flagI tail?)
-- 
cgit v1.2.3