max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

chore: remove workarounds

Browse source
This commit is contained in:
Leonardo de Moura 2020-10-08 16:50:59 -07:00
parent 9ec583e808
commit c005a9375a
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
tests/lean/run/strInterpolation.lean
View file

@ -100,11 +100,10 @@ match isLit? Parser.strInterpolantStrLitKind stx with
def expandStrInterpolantChunks (chunks : Array Syntax) (mkAppend : Syntax → Syntax → MacroM Syntax) (mkElem : Syntax → MacroM Syntax) : MacroM Syntax :=
chunks.iterateM Syntax.missing fun i elem result => do
let elem ← (match elem.isStrInterpolantStrLit? with
let elem ← match elem.isStrInterpolantStrLit? with
| none => mkElem elem
| some str => mkElem (mkStxStrLit str))
-- TODO: remove `(` after we write new elabDo
(if i.val == 0 then pure elem else mkAppend result elem)
| some str => mkElem (mkStxStrLit str)
if i.val == 0 then pure elem else mkAppend result elem
end Lean.Syntax