diff options
| author | Eduardo Julian | 2019-06-18 23:22:05 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-06-18 23:22:05 -0400 |
| commit | 932a1d5941bb80a41cbb11944d67d7366351c89a (patch) | |
| tree | 870f838615b85ab86665c179b179d9d5db02d606 /stdlib/source/lux/tool/compiler/phase/generation/js/case.lux | |
| parent | 75e6f7ad181d398b818367fdc5e86b1542d1bc0a (diff) | |
More JS machinery.
Diffstat (limited to 'stdlib/source/lux/tool/compiler/phase/generation/js/case.lux')
| -rw-r--r-- | stdlib/source/lux/tool/compiler/phase/generation/js/case.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/lux/tool/compiler/phase/generation/js/case.lux b/stdlib/source/lux/tool/compiler/phase/generation/js/case.lux index 9e066b88d..3a5e8f2d3 100644 --- a/stdlib/source/lux/tool/compiler/phase/generation/js/case.lux +++ b/stdlib/source/lux/tool/compiler/phase/generation/js/case.lux @@ -125,7 +125,7 @@ (def: (alternation pre! post!) (-> Statement Statement Statement) ($_ _.then - (_.do-while _.false + (_.do-while (_.boolean false) ($_ _.then ..save-cursor! pre!)) @@ -225,7 +225,7 @@ (do ////.monad [pattern-matching! (pattern-matching' generate pathP)] (wrap ($_ _.then - (_.do-while _.false + (_.do-while (_.boolean false) pattern-matching!) (_.throw (_.string case.pattern-matching-error)))))) |