eliminated Thy_Info.thy_ord, which is not really stable in interactive mode, since it depends on the somewhat accidental load order;
authorwenzelm
Tue, 03 Aug 2010 18:13:57 +0200
changeset 38139 ac94ff28e9e1
parent 38138 dc65ed8bbb43
child 38140 05691ad74079
eliminated Thy_Info.thy_ord, which is not really stable in interactive mode, since it depends on the somewhat accidental load order;
src/Pure/Isar/isar_cmd.ML
src/Pure/Thy/thy_info.ML
--- a/src/Pure/Isar/isar_cmd.ML	Tue Aug 03 18:10:18 2010 +0200
+++ b/src/Pure/Isar/isar_cmd.ML	Tue Aug 03 18:13:57 2010 +0200
@@ -391,7 +391,7 @@
     val thy = Toplevel.theory_of state;
     val thy_session = Present.session_name thy;
 
-    val all_thys = sort Thy_Info.thy_ord (thy :: Theory.ancestors_of thy);
+    val all_thys = rev (thy :: Theory.ancestors_of thy);
     val gr = all_thys |> map (fn node =>
       let
         val name = Context.theory_name node;
--- a/src/Pure/Thy/thy_info.ML	Tue Aug 03 18:10:18 2010 +0200
+++ b/src/Pure/Thy/thy_info.ML	Tue Aug 03 18:13:57 2010 +0200
@@ -15,7 +15,6 @@
   val is_finished: string -> bool
   val master_directory: string -> Path.T
   val loaded_files: string -> Path.T list
-  val thy_ord: theory * theory -> order
   val remove_thy: string -> unit
   val kill_thy: string -> unit
   val use_thys: string list -> unit
@@ -144,8 +143,6 @@
   fun merge _ = empty;
 );
 
-val thy_ord = int_ord o pairself Update_Time.get;
-
 
 (* remove theory *)