src/Pure/Thy/thy_output.ML
changeset 28273 17f6aa02ded3
parent 27897 0e7ff439460f
child 28427 cc9f7d99fb73
--- a/src/Pure/Thy/thy_output.ML	Wed Sep 17 21:27:36 2008 +0200
+++ b/src/Pure/Thy/thy_output.ML	Wed Sep 17 21:27:38 2008 +0200
@@ -507,7 +507,7 @@
 fun ml_struct txt = "functor DUMMY_FUNCTOR() = struct structure DUMMY = " ^ txt ^ " end;"
 
 fun output_ml ml src ctxt (txt, pos) =
- (ML_Context.eval_in (SOME (Context.Proof ctxt)) false pos (ml txt);
+ (ML_Context.eval_in (SOME ctxt) false pos (ml txt);
   (if ! source then str_of_source src else SymbolPos.content (SymbolPos.explode (txt, pos)))
   |> (if ! quotes then quote else I)
   |> (if ! display then enclose "\\begin{verbatim}\n" "\n\\end{verbatim}"