diff options
author | Eduardo Julian | 2018-02-17 11:40:12 -0400 |
---|---|---|
committer | Eduardo Julian | 2018-02-17 11:40:12 -0400 |
commit | d01f75d220539efd7d58ee9534d3ef3a7bbc3cdc (patch) | |
tree | b0b4f7d06b3e57b3ec304a1323feaa1c44f605c9 /new-luxc/source/luxc/lang/translation/js/statement.jvm.lux | |
parent | 24b5c3a973dbfea7bd3de102c909af5483ade0f7 (diff) |
- Added tests for normal JS (non-procedure) behavior.
- Fixed a few bugs.
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/js/statement.jvm.lux')
-rw-r--r-- | new-luxc/source/luxc/lang/translation/js/statement.jvm.lux | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/new-luxc/source/luxc/lang/translation/js/statement.jvm.lux b/new-luxc/source/luxc/lang/translation/js/statement.jvm.lux index e430d22ae..a2c0c6510 100644 --- a/new-luxc/source/luxc/lang/translation/js/statement.jvm.lux +++ b/new-luxc/source/luxc/lang/translation/js/statement.jvm.lux @@ -6,7 +6,8 @@ (luxc (lang [".L" module])) [//] (// [".T" runtime] - [".T" reference])) + [".T" reference] + [".T" eval])) (def: #export (translate-def name expressionT expressionJS metaV) (-> Text Type //.Expression Code (Meta Unit)) @@ -22,10 +23,8 @@ _ (do @ - [#let [def-name (referenceT.global def-ident)] - ## _ (hostT.save (format "var " def-name " = " expressionJS ";")) - #let [expressionV (: Top [])] - ## expressionV (hostT.eval def-name) + [_ (//.save-definition def-ident expressionJS) + expressionV (evalT.eval (referenceT.global def-ident)) _ (moduleL.define def-ident [expressionT metaV expressionV]) _ (if (macro.type? metaV) (case (macro.declared-tags metaV) |