aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/tool/compiler/phase/generation/js/case.lux
diff options
context:
space:
mode:
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.lux4
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))))))