aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/jvm/structure.jvm.lux
diff options
context:
space:
mode:
authorEduardo Julian2018-07-29 02:30:13 -0400
committerEduardo Julian2018-07-29 02:30:13 -0400
commita59fc865aee240afe21b82ffef2681bb9a6ea693 (patch)
treeb5a2d95ffdec3edd2ecf7615c477ba522779d985 /new-luxc/source/luxc/lang/translation/jvm/structure.jvm.lux
parent3b156dca7b4750e99bdd68b3858521e3fd6b3de5 (diff)
Adapted new-luxc to some of the latest changes to Lux.
Diffstat (limited to '')
-rw-r--r--new-luxc/source/luxc/lang/translation/jvm/structure.jvm.lux4
1 files changed, 2 insertions, 2 deletions
diff --git a/new-luxc/source/luxc/lang/translation/jvm/structure.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/structure.jvm.lux
index 4c29260f5..040c4dd59 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/structure.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/structure.jvm.lux
@@ -31,7 +31,7 @@
(do phase.Monad<Operation>
[#let [size (list.size members)]
_ (phase.assert not-a-tuple size
- (n/>= +2 size))
+ (n/>= 2 size))
membersI (|> members
list.enumerate
(monad.map @ (function (_ [idx member])
@@ -62,6 +62,6 @@
(_.INVOKESTATIC //.runtime-class
"variant_make"
($t.method (list $t.int $Object $Object)
- (#.Some ($t.array +1 $Object))
+ (#.Some ($t.array 1 $Object))
(list))
#0)))))