aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/jvm/statement.jvm.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--new-luxc/source/luxc/lang/translation/jvm/statement.jvm.lux13
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)