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/analyser/procedure.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/new-luxc/source/luxc/analyser/procedure.lux b/new-luxc/source/luxc/analyser/procedure.lux
index d8778844f..06ea7c324 100644
--- a/new-luxc/source/luxc/analyser/procedure.lux
+++ b/new-luxc/source/luxc/analyser/procedure.lux
@@ -1,10 +1,10 @@
 (;module:
   lux
-  (lux (control monad)
+  (lux (control [monad #+ do])
        (data [text]
              text/format
              (coll ["D" dict])
-             maybe))
+             [maybe]))
   (luxc ["&" base]
         (lang ["la" analysis #+ Analysis]))
   (. ["&&;" common]))
@@ -12,6 +12,6 @@
 (def: #export (analyse-procedure analyse proc-name proc-args)
   (-> &;Analyser Text (List Code) (Lux Analysis))
   (default (&;fail (format "Unknown procedure: " (%t proc-name)))
-    (do Monad<Maybe>
+    (do maybe;Monad<Maybe>
       [proc (D;get proc-name &&common;procedures)]
       (wrap (proc analyse proc-args)))))
-- 
cgit v1.2.3