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/module.lux | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

(limited to 'new-luxc/source/luxc/module.lux')

diff --git a/new-luxc/source/luxc/module.lux b/new-luxc/source/luxc/module.lux
index b53ceefed..68c43c0c1 100644
--- a/new-luxc/source/luxc/module.lux
+++ b/new-luxc/source/luxc/module.lux
@@ -1,6 +1,6 @@
 (;module:
   lux
-  (lux (control monad)
+  (lux (control [monad #+ do])
        (data [text "T/" Eq<Text>]
              text/format
              ["R" result]
@@ -118,15 +118,15 @@
   (-> Text (List Text) (Lux Unit))
   (do Monad<Lux>
     [bindings (tags-by-module module-name)
-     _ (mapM @
-             (function [tag]
-               (case (&;pl-get tag bindings)
-                 #;None
-                 (wrap [])
-
-                 (#;Some _)
-                 (&;fail (format "Cannot re-declare tag: " tag))))
-             tags)]
+     _ (monad;map @
+                  (function [tag]
+                    (case (&;pl-get tag bindings)
+                      #;None
+                      (wrap [])
+
+                      (#;Some _)
+                      (&;fail (format "Cannot re-declare tag: " tag))))
+                  tags)]
     (wrap [])))
 
 (def: #export (declare-tags tags exported? type)
-- 
cgit v1.2.3