1.1 --- a/doc-src/antiquote_setup.ML	Fri Jan 19 22:04:22 2007 +0100
     1.2 +++ b/doc-src/antiquote_setup.ML	Fri Jan 19 22:08:01 2007 +0100
     1.3 @@ -7,7 +7,7 @@
     1.4  
     1.5  local
     1.6  
     1.7 -structure O = IsarOutput;
     1.8 +structure O = ThyOutput;
     1.9  
    1.10  val str_of_source = space_implode " " o map Args.string_of o #2 o #1 o Args.dest_src;
    1.11  
    1.12 @@ -30,7 +30,7 @@
    1.13          then txt1 ^ " = " ^ txt2
    1.14          else txt1 ^ ": " ^ txt2;
    1.15      val txt' = if kind = "" then txt else kind ^ " " ^ txt;
    1.16 -    val _ = Context.use_mltext (ml (txt1, txt2)) false (SOME (Context.Proof ctxt));
    1.17 +    val _ = ML_Context.use_mltext (ml (txt1, txt2)) false (SOME (Context.Proof ctxt));
    1.18    in
    1.19      "\\indexml" ^ kind ^ enclose "{" "}"
    1.20        (translate_string (fn "_" => "-" | ">" => "$>$" | c => c) txt1) ^