From ca238f9c89d3156842b0a3d5fe24a5d69b2eedb0 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 6 Apr 2018 08:32:41 -0400
Subject: - Adapted new-luxc's code to latest stdlib changes.

---
 .../source/luxc/lang/translation/jvm/imports.jvm.lux    | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

(limited to 'new-luxc/source/luxc/lang/translation/jvm/imports.jvm.lux')

diff --git a/new-luxc/source/luxc/lang/translation/jvm/imports.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/imports.jvm.lux
index 892dd869f..44314fcf2 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/imports.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/imports.jvm.lux
@@ -21,9 +21,14 @@
   (luxc ["&" lang]
         (lang [".L" module])))
 
-(exception: #export Invalid-Imports)
-(exception: #export Module-Cannot-Import-Itself)
-(exception: #export Circular-Dependency)
+(do-template [<name>]
+  [(exception: #export (<name> {message Text})
+     message)]
+
+  [Invalid-Imports]
+  [Module-Cannot-Import-Itself]
+  [Circular-Dependency]
+  )
 
 (host.import (java/util/concurrent/Future a)
   (get [] #io a))
@@ -47,7 +52,7 @@
   (All [a] (-> (Promise a) (Future a)))
   (let [future (CompletableFuture::new [])]
     (exec (:: promise.Functor<Promise> map
-              (function [value] (CompletableFuture::complete [value] future))
+              (function (_ value) (CompletableFuture::complete [value] future))
               promise)
       future)))
 
@@ -95,7 +100,7 @@
   (-> Text (List [Text Module]) (List [Text Module]) (List [Text Module]))
   (|> from-dependency
       (list.filter (|>> product.right compiled?))
-      (list/fold (function [[dep-name dep-module] total] (&.pl-put dep-name dep-module total))
+      (list/fold (function (_ [dep-name dep-module] total) (&.pl-put dep-name dep-module total))
                  from-current)))
 
 (def: (merge-compilers current-module dependency total)
@@ -120,7 +125,7 @@
                  (#e.Error error)
                  (&.throw Invalid-Imports (%code (code.tuple imports)))))
      dependencies (monad.map @ (: (-> [Text Text] (Meta (IO (Future (Error Compiler)))))
-                                  (function [[dependency alias]]
+                                  (function (_ [dependency alias])
                                     (do @
                                       [_ (&.assert Module-Cannot-Import-Itself current-module
                                                    (not (text/= current-module dependency)))
-- 
cgit v1.2.3