aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation
diff options
context:
space:
mode:
authorEduardo Julian2018-08-09 23:39:17 -0400
committerEduardo Julian2018-08-09 23:39:17 -0400
commit84d7f9ccef221e9797929813af1094b335ba26e9 (patch)
tree428eb540e900d4e2bb29371361894d54389a0d66 /new-luxc/source/luxc/lang/translation
parent2ab2c4dc219e5d3667f4f2626166dfc782052fe3 (diff)
- Fixes for eval.
- Macro-expansion during analysis.
Diffstat (limited to 'new-luxc/source/luxc/lang/translation')
-rw-r--r--new-luxc/source/luxc/lang/translation/jvm.lux2
-rw-r--r--new-luxc/source/luxc/lang/translation/jvm/runtime.jvm.lux4
2 files changed, 3 insertions, 3 deletions
diff --git a/new-luxc/source/luxc/lang/translation/jvm.lux b/new-luxc/source/luxc/lang/translation/jvm.lux
index 14f8cf0a0..2aa46e050 100644
--- a/new-luxc/source/luxc/lang/translation/jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm.lux
@@ -117,7 +117,7 @@
(def: (store! name bytecode store)
(-> Text ByteCode Store (Error Any))
- (if (dictionary.contains? name (|> store atom.read io.run))
+ (if (|> store atom.read io.run (dictionary.contains? name))
(ex.throw class-already-stored name)
(exec (io.run (atom.update (dictionary.put name bytecode) store))
(#error.Success []))))
diff --git a/new-luxc/source/luxc/lang/translation/jvm/runtime.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/runtime.jvm.lux
index 4b3259efd..3c687f822 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/runtime.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/runtime.jvm.lux
@@ -381,7 +381,7 @@
pm-methods
io-methods))]
(do phase.Monad<Operation>
- [_ (translation.execute! [//.runtime-class bytecode])]
+ [_ (translation.execute! //.runtime-class [//.runtime-class bytecode])]
(wrap bytecode))))
(def: translate-function
@@ -411,7 +411,7 @@
_.RETURN))
applyI))]
(do phase.Monad<Operation>
- [_ (translation.execute! [//.function-class bytecode])]
+ [_ (translation.execute! //.function-class [//.function-class bytecode])]
(wrap bytecode))))
(def: #export translate