aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/jvm/reference.lux
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/jvm/reference.lux')
-rw-r--r--new-luxc/source/luxc/lang/translation/jvm/reference.lux7
1 files changed, 3 insertions, 4 deletions
diff --git a/new-luxc/source/luxc/lang/translation/jvm/reference.lux b/new-luxc/source/luxc/lang/translation/jvm/reference.lux
index c821a9de2..63fd0685a 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/reference.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/reference.lux
@@ -9,13 +9,12 @@
[compiler
["." name]
["." reference (#+ Register Variable)]
- ["." phase ("operation/." monad)
+ ["." phase ("operation@." monad)
["." generation]]]]]
[luxc
[lang
[host
[jvm (#+ Inst Operation)
- ["$t" type]
["_" inst]]]]]
["." //])
@@ -39,7 +38,7 @@
(def: local
(-> Register (Operation Inst))
- (|>> _.ALOAD operation/wrap))
+ (|>> _.ALOAD operation@wrap))
(def: #export (variable variable)
(-> Variable (Operation Inst))
@@ -54,4 +53,4 @@
(-> Name (Operation Inst))
(do phase.monad
[bytecode-name (generation.remember name)]
- (operation/wrap (_.GETSTATIC bytecode-name //.value-field //.$Object))))
+ (operation@wrap (_.GETSTATIC bytecode-name //.value-field //.$Object))))