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.

---
 .../lang/translation/jvm/procedure/host.jvm.lux    | 25 +++++++++++++---------
 1 file changed, 15 insertions(+), 10 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/translation/jvm/procedure/host.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/procedure/host.jvm.lux
index 609a0833c..f8461be45 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/procedure/host.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/procedure/host.jvm.lux
@@ -25,8 +25,13 @@
               ["ls" synthesis]))
   (// ["@" common]))
 
-(exception: #export Invalid-Syntax-For-JVM-Type)
-(exception: #export Invalid-Syntax-For-Argument-Generation)
+(do-template [<name>]
+  [(exception: #export (<name> {message Text})
+     message)]
+
+  [Invalid-Syntax-For-JVM-Type]
+  [Invalid-Syntax-For-Argument-Generation]
+  )
 
 (do-template [<name> <inst>]
   [(def: <name>
@@ -41,7 +46,7 @@
 (do-template [<name> <unwrap> <conversion> <wrap>]
   [(def: (<name> inputI)
      @.Unary
-     (if (is $i.NOP <conversion>)
+     (if (is? $i.NOP <conversion>)
        (|>> inputI
             ($i.unwrap <unwrap>)
             ($i.wrap <wrap>))
@@ -153,8 +158,8 @@
 (do-template [<name> <op> <unwrapX> <unwrapY> <wrap>]
   [(def: (<name> [xI yI])
      @.Binary
-     (<| $i.with-label (function [@then])
-         $i.with-label (function [@end])
+     (<| $i.with-label (function (_ @then))
+         $i.with-label (function (_ @end))
          (|>> xI ($i.unwrap <unwrapX>)
               yI ($i.unwrap <unwrapY>)
               (<op> @then)
@@ -174,8 +179,8 @@
 (do-template [<name> <op> <reference> <unwrapX> <unwrapY> <wrap>]
   [(def: (<name> [xI yI])
      @.Binary
-     (<| $i.with-label (function [@then])
-         $i.with-label (function [@end])
+     (<| $i.with-label (function (_ @then))
+         $i.with-label (function (_ @end))
          (|>> xI ($i.unwrap <unwrapX>)
               yI ($i.unwrap <unwrapY>)
               <op>
@@ -371,8 +376,8 @@
 
 (def: (object//null? objectI)
   @.Unary
-  (<| $i.with-label (function [@then])
-      $i.with-label (function [@end])
+  (<| $i.with-label (function (_ @then))
+      $i.with-label (function (_ @end))
       (|>> objectI
            ($i.IFNULL @then)
            ($i.GETSTATIC "java.lang.Boolean" "FALSE" ($t.class "java.lang.Boolean" (list)))
@@ -616,7 +621,7 @@
       (p.after (l.this "float") (parser/wrap $t.float))
       (p.after (l.this "double") (parser/wrap $t.double))
       (p.after (l.this "char") (parser/wrap $t.char))
-      (parser/map (function [name]
+      (parser/map (function (_ name)
                     ($t.class name (list)))
                   (l.many (l.none-of "[")))
       ))
-- 
cgit v1.2.3