@@ -461,16 +461,15 @@ doMacros' n inp = do
461461 case inp of
462462 Tok spos (CtrlSeq "begin") _ : Tok _ Symbol "{" :
463463 Tok _ Word name : Tok _ Symbol "}" : ts
464− -> handleMacros macros n spos name ts
464+ -> handleMacros macros n spos name ts <|> return inp
465465 Tok spos (CtrlSeq "end") _ : Tok _ Symbol "{" :
466466 Tok _ Word name : Tok _ Symbol "}" : ts
467− -> handleMacros macros n spos ("end" <> name) ts
467+ -> handleMacros macros n spos ("end" <> name) ts <|> return inp
468468 Tok _ (CtrlSeq "expandafter") _ : t : ts
469469 -> combineTok t <$> doMacros' n ts
470470 Tok spos (CtrlSeq name) _ : ts
471− -> handleMacros macros n spos name ts
471+ -> handleMacros macros n spos name ts <|> return inp
472472 _ -> return inp
473− <|> return inp
474473
475474 where
476475 combineTok (Tok spos (CtrlSeq name) x) (Tok _ Word w : ts)