twc/ludus
4
0
Fork 0
Code Issues 32 Pull Requests Packages Projects 8 Releases Wiki Activity

Fix bug with empty blocks

Browse Source
This commit is contained in:
Scott Richmond 2022-03-19 12:27:47 -04:00
parent 37b9560ee3
commit e616dcd453
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ludus/parser.clj
View File

@ -236,7 +236,7 @@
(case (token-type parser) (case (token-type parser)
::token/rbrace (let [es (add-member exprs current_expr)] ::token/rbrace (let [es (add-member exprs current_expr)]
(if (empty? es) (if (empty? es)
(panic parser "Blocks must have at least one expression") (advance (panic parser "Blocks must have at least one expression"))
(assoc (advance parser) ::ast { (assoc (advance parser) ::ast {
::ast/type ::ast/block ::ast/type ::ast/block
:exprs es :exprs es