aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/jvm/runtime.lux
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/jvm/runtime.lux')
-rw-r--r--new-luxc/source/luxc/lang/translation/jvm/runtime.lux10
1 files changed, 5 insertions, 5 deletions
diff --git a/new-luxc/source/luxc/lang/translation/jvm/runtime.lux b/new-luxc/source/luxc/lang/translation/jvm/runtime.lux
index 755ae7a3b..0f3a89faf 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/runtime.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/runtime.lux
@@ -4,12 +4,12 @@
[monad (#+ do)]]
[data
[collection
- ["." list ("#/." functor)]]]
+ ["." list ("#@." functor)]]]
["." math]
[target
[jvm
- ["." descriptor (#+ Descriptor)]
- ["$t" type]]]
+ [type
+ ["." descriptor (#+ Descriptor)]]]]
[tool
[compiler
[arity (#+ Arity)]
@@ -329,10 +329,10 @@
(def: translate-function
(Operation ByteCode)
(let [applyI (|> (list.n/range 2 num-apply-variants)
- (list/map (function (_ arity)
+ (list@map (function (_ arity)
($d.method #$.Public $.noneM apply-method (apply-signature arity)
(let [preI (|> (list.n/range 0 (dec arity))
- (list/map _.ALOAD)
+ (list@map _.ALOAD)
_.fuse)]
(|>> preI
(_.INVOKEVIRTUAL //.$Function apply-method (apply-signature (dec arity)) #0)