# HG changeset patch
# User wenzelm
# Date 1238164973 -3600
# Node ID 50ccaef52871f3532ab2f2f39b1088b144e8a3a0
# Parent  2c83f7eaf1a4f1122c2b27a14953db6cee0f1806
export position_of;

diff -r 2c83f7eaf1a4 -r 50ccaef52871 src/Pure/ML/ml_test.ML
--- a/src/Pure/ML/ml_test.ML	Fri Mar 27 12:22:02 2009 +0100
+++ b/src/Pure/ML/ml_test.ML	Fri Mar 27 15:42:53 2009 +0100
@@ -6,6 +6,7 @@
 
 signature ML_TEST =
 sig
+  val position_of: Proof.context -> PolyML.location -> Position.T
   val eval: bool -> Position.T -> ML_Lex.token list -> unit
 end
 
@@ -33,9 +34,9 @@
       |> Extra_Env.map (fold (fn (i, tok) => Inttab.update (i, ML_Lex.pos_of tok)) regs);
   in (regs, context') end;
 
-fun pos_of_location context
+fun position_of ctxt
     ({file, startLine = line, startPosition = i, endPosition = j, ...}: location) =
-  (case pairself (Inttab.lookup (Extra_Env.get context)) (i, j) of
+  (case pairself (Inttab.lookup (Extra_Env.get (Context.Proof ctxt))) (i, j) of
     (SOME pos1, SOME pos2) => Position.encode_range (pos1, pos2)
   | (SOME pos, NONE) => pos
   | _ => Position.line_file line file);
@@ -45,7 +46,7 @@
 
 fun report_parse_tree context depth =
   let
-    val pos_of = pos_of_location context;
+    val pos_of = position_of (Context.proof_of context);
     fun report loc (PTtype types) =
           PolyML.NameSpace.displayTypeExpression (types, depth)
           |> pretty_ml |> Pretty.from_ML |> Pretty.string_of
@@ -93,7 +94,8 @@
     fun put_message {message, hard, location, context = _} =
      (put (if hard then "Error: " else "Warning: ");
       put (Pretty.string_of (Pretty.from_ML (pretty_ml message)));
-      put (Position.str_of (pos_of_location (the (Context.thread_data ())) location) ^ "\n"));
+      put (Position.str_of
+        (position_of (Context.proof_of (the (Context.thread_data ()))) location) ^ "\n"));
 
 
     (* results *)