From 50cc5fbe7cc8abde05085944393fcec4c791402f Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 5 Sep 2017 18:36:09 -0400
Subject: - Updated new compiler's code to the recent changes in the language.
 - WIP: Some other changes/additions to the new compiler.

---
 new-luxc/source/luxc/generator/structure.jvm.lux | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 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 e3a4bed75..8662aaa8d 100644
--- a/new-luxc/source/luxc/generator/structure.jvm.lux
+++ b/new-luxc/source/luxc/generator/structure.jvm.lux
@@ -1,7 +1,7 @@
 
 (;module:
   lux
-  (lux (control monad)
+  (lux (control [monad #+ do])
        (data text/format
              (coll [list]))
        [macro #+ Monad<Lux> "Lux/" Monad<Lux>]
@@ -28,13 +28,13 @@
                  (n.>= +2 size))
      membersI (|> members
                   list;enumerate
-                  (mapM @ (function [[idx member]]
-                            (do @
-                              [memberI (generate member)]
-                              (wrap (|>. $i;DUP
-                                         ($i;int (nat-to-int idx))
-                                         memberI
-                                         $i;AASTORE)))))
+                  (monad;map @ (function [[idx member]]
+                                 (do @
+                                   [memberI (generate member)]
+                                   (wrap (|>. $i;DUP
+                                              ($i;int (nat-to-int idx))
+                                              memberI
+                                              $i;AASTORE)))))
                   (:: @ map $i;fuse))]
     (wrap (|>. ($i;array $Object size) membersI))))
 
-- 
cgit v1.2.3