src/Pure/Thy/thy_output.ML
changeset 26455 1757a6e049f4
parent 26385 ae7564661e76
child 26710 f79aa228c582
--- a/src/Pure/Thy/thy_output.ML	Thu Mar 27 21:49:10 2008 +0100
+++ b/src/Pure/Thy/thy_output.ML	Fri Mar 28 00:02:54 2008 +0100
@@ -502,7 +502,7 @@
 fun ml_struct txt = "functor DUMMY_FUNCTOR() = struct structure DUMMY = " ^ txt ^ " end;"
 
 fun output_ml ml src ctxt (txt, pos) =
- (ML_Context.use_mltext false pos (ml txt) (SOME (Context.Proof ctxt));
+ (ML_Context.eval_in (SOME (Context.Proof ctxt)) false pos (ml txt);
   (if ! source then str_of_source src else txt)
   |> (if ! quotes then quote else I)
   |> (if ! display then enclose "\\begin{verbatim}\n" "\n\\end{verbatim}"