diff -r 129db1416717 -r d83797ef0d2d src/Pure/Syntax/term_position.ML --- a/src/Pure/Syntax/term_position.ML Mon Nov 28 20:39:08 2011 +0100 +++ b/src/Pure/Syntax/term_position.ML Mon Nov 28 22:05:32 2011 +0100 @@ -25,15 +25,15 @@ val position_text = XML.Text position_dummy; fun pretty pos = - Pretty.markup (Position.markup pos Markup.position) [Pretty.str position_dummy]; + Pretty.markup (Position.markup pos Isabelle_Markup.position) [Pretty.str position_dummy]; fun encode pos = - YXML.string_of (XML.Elem (Position.markup pos Markup.position, [position_text])); + YXML.string_of (XML.Elem (Position.markup pos Isabelle_Markup.position, [position_text])); fun decode str = (case YXML.parse_body str handle Fail msg => error msg of [XML.Elem ((name, props), [arg])] => - if name = Markup.positionN andalso arg = position_text + if name = Isabelle_Markup.positionN andalso arg = position_text then SOME (Position.of_properties props) else NONE | _ => NONE);