# HG changeset patch # User wenzelm # Date 1169240881 -3600 # Node ID 008794185f4dcfe5330df1b95c185faadc65598c # Parent 98e3e9f001924d36f70a0d900111c9b4a8226e4e renamed IsarOutput to ThyOutput; moved ML context stuff to from Context to ML_Context; diff -r 98e3e9f00192 -r 008794185f4d 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) ^