@@ -253,10 +253,9 @@ blockCommand = try $ do
253 let raw = do
253 let raw = do
254 rawcommand <- getRawCommand name'
254 rawcommand <- getRawCommand name'
255 transformed <- applyMacros' rawcommand
255 transformed <- applyMacros' rawcommand
256+ guard $ transformed /= rawcommand
256 notFollowedBy $ parseFromString inlines transformed
257 notFollowedBy $ parseFromString inlines transformed
257− if transformed /= rawcommand
258− then parseFromString blocks transformed
258+ parseFromString blocks transformed
260 case M.lookup name' blockCommands of
259 case M.lookup name' blockCommands of
261 Just p -> p
260 Just p -> p
262 Nothing -> case M.lookup name blockCommands of
261 Nothing -> case M.lookup name blockCommands of