aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/jvm/function.jvm.lux
diff options
context:
space:
mode:
authorEduardo Julian2019-04-07 17:49:35 -0400
committerEduardo Julian2019-04-07 17:49:35 -0400
commita4e0eb58480a05e4c23a07d33965022125c539f2 (patch)
tree751b2dd5f6154b5940df39a3cb16c49868cd6551 /new-luxc/source/luxc/lang/translation/jvm/function.jvm.lux
parenta61c3f2e7bc29c3224264317b14254fe93d503fe (diff)
Updated the JVM compiler to the latest changes.
Diffstat (limited to '')
-rw-r--r--new-luxc/source/luxc/lang/translation/jvm/function.jvm.lux23
1 files changed, 12 insertions, 11 deletions
diff --git a/new-luxc/source/luxc/lang/translation/jvm/function.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/function.jvm.lux
index 8c35952fd..db8716697 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/function.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/function.jvm.lux
@@ -1,9 +1,10 @@
(.module:
[lux (#- function)
- ["." function]
+ [abstract
+ ["." monad (#+ do)]]
[control
[pipe (#+ when> new>)]
- ["." monad (#+ do)]]
+ ["." function]]
[data
["." text
format]
@@ -15,7 +16,7 @@
[synthesis (#+ Synthesis Abstraction Apply)]
["_." reference (#+ Register Variable)]
["." phase
- ["." translation]]]]]
+ ["." generation]]]]]
[luxc
[lang
[host
@@ -295,16 +296,16 @@
(-> Phase Abstraction (Operation Inst))
(do phase.monad
[@begin _.make-label
- [function-class bodyI] (translation.with-context
- (translation.with-anchor [@begin 1]
+ [function-class bodyI] (generation.with-context
+ (generation.with-anchor [@begin 1]
(translate bodyS)))
[functionD instanceI] (with-function @begin function-class env arity bodyI)
- _ (translation.save! ["" function-class]
- [function-class
- (def.class #$.V1_6 #$.Public $.finalC
- function-class (list)
- ($.simple-class //.function-class) (list)
- functionD)])]
+ _ (generation.save! ["" function-class]
+ [function-class
+ (def.class #$.V1_6 #$.Public $.finalC
+ function-class (list)
+ ($.simple-class //.function-class) (list)
+ functionD)])]
(wrap instanceI)))
(def: (segment size elems)