src/Pure/Syntax/syntax.ML

--- a/src/Pure/Syntax/syntax.ML	Mon Nov 28 20:39:08 2011 +0100
+++ b/src/Pure/Syntax/syntax.ML	Mon Nov 28 22:05:32 2011 +0100
@@ -185,7 +185,7 @@
     val pos =
       (case tree of
         XML.Elem ((name, props), _) =>
-          if name = Markup.tokenN then Position.of_properties props
+          if name = Isabelle_Markup.tokenN then Position.of_properties props
           else Position.none
       | XML.Text _ => Position.none);
   in (Symbol_Pos.explode (text, pos), pos) end;
@@ -202,7 +202,7 @@
   in
     (case YXML.parse_body str handle Fail msg => error msg of
       body as [tree as XML.Elem ((name, _), _)] =>
-        if name = Markup.tokenN then parse_tree tree else decode body
+        if name = Isabelle_Markup.tokenN then parse_tree tree else decode body
     | [tree as XML.Text _] => parse_tree tree
     | body => decode body)
   end;