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/reference.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/reference.jvm.lux')
-rw-r--r-- | new-luxc/source/luxc/lang/translation/js/reference.jvm.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/new-luxc/source/luxc/lang/translation/js/reference.jvm.lux b/new-luxc/source/luxc/lang/translation/js/reference.jvm.lux index 66d340949..d9e508193 100644 --- a/new-luxc/source/luxc/lang/translation/js/reference.jvm.lux +++ b/new-luxc/source/luxc/lang/translation/js/reference.jvm.lux @@ -11,7 +11,7 @@ (do-template [<register> <translation> <prefix>] [(def: #export (<register> register) (-> Register //.Expression) - (format <prefix> (%n register))) + (format <prefix> (%i (nat-to-int register)))) (def: #export (<translation> register) (-> Register (Meta //.Expression)) @@ -23,7 +23,7 @@ (def: #export (translate-variable var) (-> Variable (Meta //.Expression)) (if (variableL.captured? var) - (translate-captured (int-to-nat var)) + (translate-captured (variableL.captured-register var)) (translate-local (int-to-nat var)))) (def: #export global |