aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/input.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/program/aedifex/input.lux')
-rw-r--r--stdlib/source/program/aedifex/input.lux2
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/source/program/aedifex/input.lux b/stdlib/source/program/aedifex/input.lux
index 509d8e16f..cf65de5b6 100644
--- a/stdlib/source/program/aedifex/input.lux
+++ b/stdlib/source/program/aedifex/input.lux
@@ -34,7 +34,7 @@
(let [parse (syntax.parse ""
syntax.no_aliases
(text.size source_code))]
- (case (parse [location.dummy 0 source_code])
+ (when (parse [location.dummy 0 source_code])
{.#Left [_ error]}
{try.#Failure error}