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/case.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/case.jvm.lux')
| -rw-r--r-- | new-luxc/source/luxc/lang/translation/js/case.jvm.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/new-luxc/source/luxc/lang/translation/js/case.jvm.lux b/new-luxc/source/luxc/lang/translation/js/case.jvm.lux index 626181984..cbb0e6c77 100644 --- a/new-luxc/source/luxc/lang/translation/js/case.jvm.lux +++ b/new-luxc/source/luxc/lang/translation/js/case.jvm.lux @@ -12,8 +12,8 @@ [".T" primitive] [".T" reference])) -(def: #export (translate-let translate valueS register bodyS) - (-> (-> ls.Synthesis (Meta //.Expression)) ls.Synthesis Nat ls.Synthesis +(def: #export (translate-let translate register valueS bodyS) + (-> (-> ls.Synthesis (Meta //.Expression)) Nat ls.Synthesis ls.Synthesis (Meta //.Expression)) (do macro.Monad<Meta> [valueJS (translate valueS) |