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.

---
 new-luxc/source/luxc/lang/translation/jvm/structure.jvm.lux | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/translation/jvm/structure.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/structure.jvm.lux
index ddb6541cf..4a98d346d 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/structure.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/structure.jvm.lux
@@ -16,7 +16,8 @@
               ["ls" synthesis]))
   (// [".T" common]))
 
-(exception: #export Not-A-Tuple)
+(exception: #export (Not-A-Tuple {message Text})
+  message)
 
 (def: $Object $.Type ($t.class "java.lang.Object" (list)))
 
@@ -28,7 +29,7 @@
                  (n/>= +2 size))
      membersI (|> members
                   list.enumerate
-                  (monad.map @ (function [[idx member]]
+                  (monad.map @ (function (_ [idx member])
                                  (do @
                                    [memberI (translate member)]
                                    (wrap (|>> $i.DUP
-- 
cgit v1.2.3