diff options
| author | Eduardo Julian | 2019-10-15 00:50:03 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-10-15 00:50:03 -0400 |
| commit | 2b5351eb4624ce3c3ada994caaaea77c9d397eb8 (patch) | |
| tree | e886dc45f96fcaa21687747dd6481fed1ca1c769 /stdlib/source/lux/control/parser/code.lux | |
| parent | 7d2607a34183662bb640644888fb52281a2d3ab4 (diff) | |
Compiler extensions have been tested to work.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/control/parser/code.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/lux/control/parser/code.lux b/stdlib/source/lux/control/parser/code.lux index 5ea2247d6..30344aaa0 100644 --- a/stdlib/source/lux/control/parser/code.lux +++ b/stdlib/source/lux/control/parser/code.lux @@ -152,9 +152,9 @@ {#.doc "Checks whether there are no more inputs."} (Parser Bit) (function (_ tokens) - (case tokens - #.Nil (#try.Success [tokens #1]) - _ (#try.Success [tokens #0])))) + (#try.Success [tokens (case tokens + #.Nil true + _ false)]))) (def: #export (run syntax inputs) (All [a] (-> (Parser a) (List Code) (Try a))) |