removed obsolete context_position.ML (superseded by Position.thread_data);

--- a/src/Pure/IsaMakefile	Thu Jan 24 12:02:44 2008 +0100
+++ b/src/Pure/IsaMakefile	Thu Jan 24 23:51:11 2008 +0100
@@ -70,13 +70,12 @@
   Tools/ROOT.ML Tools/invoke.ML Tools/isabelle_process.ML			\
   Tools/named_thms.ML Tools/xml_syntax.ML assumption.ML axclass.ML		\
   codegen.ML compress.ML config.ML conjunction.ML consts.ML context.ML		\
-  context_position.ML conv.ML defs.ML display.ML drule.ML envir.ML		\
-  fact_index.ML goal.ML interpretation.ML library.ML logic.ML			\
-  meta_simplifier.ML more_thm.ML morphism.ML name.ML net.ML old_goals.ML	\
-  pattern.ML primitive_defs.ML proofterm.ML pure_setup.ML pure_thy.ML		\
-  search.ML sign.ML simplifier.ML sorts.ML subgoal.ML tactic.ML			\
-  tctical.ML term.ML term_subst.ML theory.ML thm.ML type.ML			\
-  type_infer.ML unify.ML variable.ML
+  conv.ML defs.ML display.ML drule.ML envir.ML fact_index.ML goal.ML		\
+  interpretation.ML library.ML logic.ML meta_simplifier.ML more_thm.ML		\
+  morphism.ML name.ML net.ML old_goals.ML pattern.ML primitive_defs.ML		\
+  proofterm.ML pure_setup.ML pure_thy.ML search.ML sign.ML simplifier.ML	\
+  sorts.ML subgoal.ML tactic.ML tctical.ML term.ML term_subst.ML theory.ML	\
+  thm.ML type.ML type_infer.ML unify.ML variable.ML
 	@./mk
 
 

--- a/src/Pure/ROOT.ML	Thu Jan 24 12:02:44 2008 +0100
+++ b/src/Pure/ROOT.ML	Thu Jan 24 23:51:11 2008 +0100
@@ -26,7 +26,6 @@
 use "Syntax/lexicon.ML";
 use "Syntax/simple_syntax.ML";
 use "context.ML";
-use "context_position.ML";
 use "sorts.ML";
 use "type.ML";
 use "type_infer.ML";

--- a/src/Pure/context_position.ML	Thu Jan 24 12:02:44 2008 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,35 +0,0 @@
-(*  Title:      Pure/context_position.ML
-    ID:         $Id$
-    Author:     Makarius
-
-Context positions.
-*)
-
-signature CONTEXT_POSITION =
-sig
-  val put: Position.T -> Context.generic -> Context.generic
-  val put_ctxt: Position.T -> Proof.context -> Proof.context
-  val get: Proof.context -> Position.T
-  val str_of: Proof.context -> string
-  val properties_of: Proof.context -> Markup.property list
-end;
-
-structure ContextPosition: CONTEXT_POSITION =
-struct
-
-structure Data = GenericDataFun
-(
-  type T = Position.T;
-  val empty = Position.none;
-  fun extend _ = empty;
-  fun merge _ _ = empty;
-);
-
-val put = Data.put;
-val put_ctxt = Context.proof_map o put;
-
-val get = Data.get o Context.Proof;
-val str_of = Position.str_of o get;
-val properties_of = Position.properties_of o get;
-
-end;