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/case.jvm.lux | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/translation/jvm/case.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/case.jvm.lux
index b693f50b8..782639b25 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/case.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/case.jvm.lux
@@ -52,7 +52,8 @@
                                    (list))
                         false)))
 
-(exception: #export Unrecognized-Path)
+(exception: #export (Unrecognized-Path {message Text})
+  message)
 
 (def: (translate-path' translate stack-depth @else @end path)
   (-> (-> ls.Synthesis (Meta $.Inst))
@@ -133,8 +134,8 @@
 
     (^template [<special> <flag>]
       (^ [_ (#.Form (list [_ (#.Text <special>)] [_ (#.Nat idx)]))])
-      (macro/wrap (<| $i.with-label (function [@success])
-                      $i.with-label (function [@fail])
+      (macro/wrap (<| $i.with-label (function (_ @success))
+                      $i.with-label (function (_ @fail))
                       (|>> peekI
                            ($i.CHECKCAST ($t.descriptor //runtime.$Variant))
                            ($i.int (nat-to-int idx))
@@ -194,8 +195,8 @@
 
 (def: #export (translate-if testI thenI elseI)
   (-> $.Inst $.Inst $.Inst $.Inst)
-  (<| $i.with-label (function [@else])
-      $i.with-label (function [@end])
+  (<| $i.with-label (function (_ @else))
+      $i.with-label (function (_ @end))
       (|>> testI
            ($i.unwrap #$.Boolean)
            ($i.IFEQ @else)
-- 
cgit v1.2.3