renamed IsarOutput to ThyOutput;
authorwenzelm
Fri, 19 Jan 2007 22:08:01 +0100
changeset 22094 008794185f4d
parent 22093 98e3e9f00192
child 22095 07875394618e
renamed IsarOutput to ThyOutput; moved ML context stuff to from Context to ML_Context;
doc-src/antiquote_setup.ML
--- a/doc-src/antiquote_setup.ML	Fri Jan 19 22:04:22 2007 +0100
+++ b/doc-src/antiquote_setup.ML	Fri Jan 19 22:08:01 2007 +0100
@@ -7,7 +7,7 @@
 
 local
 
-structure O = IsarOutput;
+structure O = ThyOutput;
 
 val str_of_source = space_implode " " o map Args.string_of o #2 o #1 o Args.dest_src;
 
@@ -30,7 +30,7 @@
         then txt1 ^ " = " ^ txt2
         else txt1 ^ ": " ^ txt2;
     val txt' = if kind = "" then txt else kind ^ " " ^ txt;
-    val _ = Context.use_mltext (ml (txt1, txt2)) false (SOME (Context.Proof ctxt));
+    val _ = ML_Context.use_mltext (ml (txt1, txt2)) false (SOME (Context.Proof ctxt));
   in
     "\\indexml" ^ kind ^ enclose "{" "}"
       (translate_string (fn "_" => "-" | ">" => "$>$" | c => c) txt1) ^