chore: remove unnecessary node

This commit is contained in:
Leonardo de Moura 2020-08-28 09:43:23 -07:00
parent 54f95421c8
commit 091000462d

View file

@ -44,8 +44,7 @@ private def mkAuxiliaryMatchTerm (parentTag : Name) (matchTac : Syntax) : MacroM
pure (matchTerm, s.cases)
def mkTacticSeq (ref : Syntax) (tacs : Array Syntax) : Syntax :=
let seq := mkSepStx tacs (mkAtomFrom ref "; ");
Syntax.node `Lean.Parser.Tactic.seq #[seq]
mkSepStx tacs (mkAtomFrom ref "; ")
@[builtinTactic Lean.Parser.Tactic.match] def evalMatch : Tactic :=
fun stx => do