diff options
Diffstat (limited to 'luxc/src/lux/parser.clj')
| -rw-r--r-- | luxc/src/lux/parser.clj | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/luxc/src/lux/parser.clj b/luxc/src/lux/parser.clj index 3323dadfc..3f0a95653 100644 --- a/luxc/src/lux/parser.clj +++ b/luxc/src/lux/parser.clj @@ -45,9 +45,9 @@ :let [elems (&/fold &/|++ &/$Nil elems*)]] (|case token [meta (&lexer/$Close_Brace _)] - (if (even? (&/|length elems)) - (return (&/$RecordS (&/|as-pairs elems))) - (&/fail-with-loc base-uneven-record-error)) + (|do [_ (&/assert! (even? (&/|length elems)) + (&/fail-with-loc base-uneven-record-error))] + (return (&/$RecordS (&/|as-pairs elems)))) _ (&/fail-with-loc "[Parser Error] Unbalanced braces.") |