From e616dcd4530921b3beb08fba5c27dab529dd731a Mon Sep 17 00:00:00 2001
From: Scott Richmond <kredati@users.noreply.github.com>
Date: Sat, 19 Mar 2022 12:27:47 -0400
Subject: [PATCH] Fix bug with empty blocks

---
 src/ludus/parser.clj | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ludus/parser.clj b/src/ludus/parser.clj
index bc543b9..1d31a9c 100644
--- a/src/ludus/parser.clj
+++ b/src/ludus/parser.clj
@@ -236,7 +236,7 @@
       (case (token-type parser)
         ::token/rbrace (let [es (add-member exprs current_expr)]
                          (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 {
                                                           ::ast/type ::ast/block
                                                           :exprs es