added markup ML_open, ML_struct;
authorwenzelm
Sat, 06 Jun 2009 19:58:10 +0200
changeset 31472 d7929d74acb4
parent 31471 e3987b32e401
child 31473 fd341ca4b8de
added markup ML_open, ML_struct;
src/Pure/General/markup.ML
src/Pure/General/markup.scala
--- a/src/Pure/General/markup.ML	Sat Jun 06 19:58:10 2009 +0200
+++ b/src/Pure/General/markup.ML	Sat Jun 06 19:58:10 2009 +0200
@@ -71,6 +71,8 @@
   val ML_commentN: string val ML_comment: T
   val ML_malformedN: string val ML_malformed: T
   val ML_defN: string val ML_def: T
+  val ML_openN: string val ML_open: T
+  val ML_structN: string val ML_struct: T
   val ML_refN: string val ML_ref: T
   val ML_typingN: string val ML_typing: T
   val ML_sourceN: string val ML_source: T
@@ -237,6 +239,8 @@
 val (ML_malformedN, ML_malformed) = markup_elem "ML_malformed";
 
 val (ML_defN, ML_def) = markup_elem "ML_def";
+val (ML_openN, ML_open) = markup_elem "ML_open";
+val (ML_structN, ML_struct) = markup_elem "ML_struct";
 val (ML_refN, ML_ref) = markup_elem "ML_ref";
 val (ML_typingN, ML_typing) = markup_elem "ML_typing";
 
--- a/src/Pure/General/markup.scala	Sat Jun 06 19:58:10 2009 +0200
+++ b/src/Pure/General/markup.scala	Sat Jun 06 19:58:10 2009 +0200
@@ -92,6 +92,8 @@
   val ML_MALFORMED = "ML_malformed"
 
   val ML_DEF = "ML_def"
+  val ML_OPEN = "ML_open"
+  val ML_STRUCT = "ML_struct"
   val ML_REF = "ML_ref"
   val ML_TYPING = "ML_typing"