aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/jvm/case.jvm.lux
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/jvm/case.jvm.lux')
-rw-r--r--new-luxc/source/luxc/lang/translation/jvm/case.jvm.lux14
1 files changed, 7 insertions, 7 deletions
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 d29b9ae7c..e47e123ad 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/case.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/case.jvm.lux
@@ -32,7 +32,7 @@
($t.method (list //runtime.$Stack)
(#.Some $Object)
(list))
- false)))
+ #0)))
(def: popI
$.Inst
@@ -41,7 +41,7 @@
($t.method (list //runtime.$Stack)
(#.Some //runtime.$Stack)
(list))
- false)))
+ #0)))
(def: pushI
$.Inst
@@ -50,7 +50,7 @@
($t.method (list //runtime.$Stack $Object)
(#.Some //runtime.$Stack)
(list))
- false)))
+ #0)))
(exception: #export (Unrecognized-Path {message Text})
message)
@@ -101,7 +101,7 @@
($t.method (list $Object)
(#.Some $t.boolean)
(list))
- false)
+ #0)
($i.IFEQ @else)))
(^template [<special> <method>]
@@ -123,7 +123,7 @@
($t.method (list //runtime.$Tuple $t.int)
(#.Some $Object)
(list))
- false)
+ #0)
pushI))))
(["lux case tuple left" "pm_left"]
["lux case tuple right" "pm_right"])
@@ -140,7 +140,7 @@
($t.method (list //runtime.$Variant //runtime.$Tag //runtime.$Flag)
(#.Some //runtime.$Datum)
(list))
- false)
+ #0)
$i.DUP
($i.IFNULL @fail)
($i.GOTO @success)
@@ -185,7 +185,7 @@
($i.INVOKESTATIC hostL.runtime-class
"pm_fail"
($t.method (list) #.None (list))
- false)
+ #0)
$i.NULL
($i.GOTO @end)))))