@@ -678,6 +678,7 @@ blockToLaTeX (OrderedList (start, numstyle, numdelim) lst) = do
678 let enum = text $ "enum" ++ map toLower (toRomanNumeral oldlevel)
678 let enum = text $ "enum" ++ map toLower (toRomanNumeral oldlevel)
679 let stylecommand
679 let stylecommand
680 | numstyle == DefaultStyle && numdelim == DefaultDelim = empty
680 | numstyle == DefaultStyle && numdelim == DefaultDelim = empty
681+ | beamer && numstyle == Decimal && numdelim == Period = empty
681 | beamer = brackets (todelim exemplar)
682 | beamer = brackets (todelim exemplar)
682 | otherwise = "\\def" <> "\\label" <> enum <>
683 | otherwise = "\\def" <> "\\label" <> enum <>
683 braces (todelim $ tostyle enum)
684 braces (todelim $ tostyle enum)