- Adapted new-luxc's code to latest stdlib changes.

1 files changed, 9 insertions, 4 deletions

diff --git a/new-luxc/source/luxc/lang/translation/jvm/statement.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/statement.jvm.lux
index 5edd62aec..26aaaa8e9 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/statement.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/statement.jvm.lux
@@ -22,8 +22,13 @@
       [".T" common]
       [".T" runtime]))
 
-(exception: #export Invalid-Definition-Value)
-(exception: #export Cannot-Evaluate-Definition)
+(do-template [<name>]
+  [(exception: #export (<name> {message Text})
+     message)]
+
+  [Invalid-Definition-Value]
+  [Cannot-Evaluate-Definition]
+  )
 
 (host.import java/lang/reflect/Field
   (get [#? Object] #try #? Object))
@@ -116,8 +121,8 @@
                    $i.DUP2_X1
                    $i.POP2
                    runtimeT.variantI)
-        prepare-input-listI (<| $i.with-label (function [@loop])
-                                $i.with-label (function [@end])
+        prepare-input-listI (<| $i.with-label (function (_ @loop))
+                                $i.with-label (function (_ @end))
                                 (|>> nilI
                                      num-inputsI
                                      ($i.label @loop)