fix: one instance of parenthesizer "visiting a syntax tree without precedences"

This commit is contained in:
Sebastian Ullrich 2020-11-25 20:25:43 +01:00
parent e21b4a6399
commit 3c86f79bad

View file

@ -1555,7 +1555,7 @@ def mkAntiquot (name : String) (kind : Option SyntaxNodeKind) (anonymous := true
-- antiquotation kind via `noImmediateColon`
let nameP := if anonymous then nameP <|> checkNoImmediateColon >> pushNone else nameP
-- antiquotations are not part of the "standard" syntax, so hide "expected '$'" on error
node kind $ atomic $
leadingNode kind maxPrec $ atomic $
setExpected [] "$" >>
many (checkNoWsBefore "" >> "$") >>
checkNoWsBefore "no space before spliced term" >> antiquotExpr >>