Tidy up expr-sync

This commit is contained in:
Scott Richmond 2022-02-21 15:03:32 -05:00
parent 33fad7656c
commit 8ec432c7a0

View File

@ -353,15 +353,6 @@
})) }))
)) ))
(def expr-sync #{
::token/newline
::token/semicolon
::token/comma
::token/rparen
::token/rbracket
::token/rbrace
})
(defn- parse-expr [parser] (defn- parse-expr [parser]
(let [token (current parser)] (let [token (current parser)]
(case (::token/type token) (case (::token/type token)
@ -404,7 +395,7 @@
(::token/semicolon ::token/comma) (::token/semicolon ::token/comma)
(panic parser (str "Unexpected delimiter: " (::token/lexeme token))) (panic parser (str "Unexpected delimiter: " (::token/lexeme token)))
(panic parser "Expected expression" expr-sync) (panic parser "Expected expression")
))) )))