--- a/src/Pure/Isar/token.ML Mon Jan 15 22:46:04 2018 +0100
+++ b/src/Pure/Isar/token.ML Mon Jan 15 23:03:01 2018 +0100
@@ -289,7 +289,7 @@
| Alt_String => (Markup.alt_string, "")
| Verbatim => (Markup.verbatim, "")
| Cartouche => (Markup.cartouche, "")
- | Comment NONE => (Markup.comment, "")
+ | Comment _ => (Markup.comment, "")
| Error msg => (Markup.bad (), msg)
| _ => (Markup.empty, "");
--- a/src/Pure/Syntax/lexicon.ML Mon Jan 15 22:46:04 2018 +0100
+++ b/src/Pure/Syntax/lexicon.ML Mon Jan 15 23:03:01 2018 +0100
@@ -167,7 +167,7 @@
| StrSy => Markup.inner_string
| StringSy => Markup.inner_string
| Cartouche => Markup.inner_cartouche
- | Comment NONE => Markup.inner_comment
+ | Comment _ => Markup.inner_comment
| _ => Markup.empty;
fun report_of_token (Token (kind, s, (pos, _))) =