# HG changeset patch
# User wenzelm
# Date 1362315423 -3600
# Node ID 1b37556a3644e4d5c3f12b37565c8c6850fbd0d3
# Parent  fd67b7f219e4a38ac3f3e5b564f4fce5dfd57485
tuned;

diff -r fd67b7f219e4 -r 1b37556a3644 src/Pure/Isar/toplevel.ML
--- a/src/Pure/Isar/toplevel.ML	Sun Mar 03 13:43:57 2013 +0100
+++ b/src/Pure/Isar/toplevel.ML	Sun Mar 03 13:57:03 2013 +0100
@@ -94,8 +94,8 @@
   val get_timing: transition -> Time.time
   val put_timing: Time.time -> transition -> transition
   val transition: bool -> transition -> state -> (state * (exn * string) option) option
+  val command_errors: bool -> transition -> state -> Runtime.error list * state option
   val command_exception: bool -> transition -> state -> state
-  val command_errors: bool -> transition -> state -> Runtime.error list * state option
   val element_result: transition Thy_Syntax.element -> state ->
     (transition * state) list future * state
 end;
@@ -687,6 +687,12 @@
 
 (* managed commands *)
 
+fun command_errors int tr st =
+  (case transition int tr st of
+    SOME (st', NONE) => ([], SOME st')
+  | SOME (_, SOME (exn, _)) => (ML_Compiler.exn_messages_ids exn, NONE)
+  | NONE => (ML_Compiler.exn_messages_ids Runtime.TERMINATE, NONE));
+
 fun command_exception int tr st =
   (case transition int tr st of
     SOME (st', NONE) => st'
@@ -694,15 +700,13 @@
       if Exn.is_interrupt exn then reraise exn else raise Runtime.EXCURSION_FAIL (exn, info)
   | NONE => raise Runtime.EXCURSION_FAIL (Runtime.TERMINATE, at_command tr));
 
-fun command_errors int tr st =
-  (case transition int tr st of
-    SOME (st', NONE) => ([], SOME st')
-  | SOME (_, SOME (exn, _)) => (ML_Compiler.exn_messages_ids exn, NONE)
-  | NONE => (ML_Compiler.exn_messages_ids Runtime.TERMINATE, NONE));
+fun command tr = command_exception (! interact) tr;
 
 
 (* scheduled proof result *)
 
+local
+
 structure Result = Proof_Data
 (
   type T = (transition * state) list future;
@@ -718,20 +722,20 @@
     else Int.min (Real.floor (Real.max (Math.log10 (Time.toReal estimate), ~3.0)) - 3, ~1)
   end;
 
+fun atom_result tr st =
+  let
+    val st' =
+      if Goal.future_enabled () andalso Keyword.is_diag (name_of tr) then
+        setmp_thread_position tr (fn () =>
+          (Goal.fork_name "Toplevel.diag" (priority (Thy_Syntax.atom tr))
+            (fn () => command tr st); st)) ()
+      else command tr st;
+  in ((tr, st'), st') end;
+
+in
+
 fun element_result (Thy_Syntax.Element (head_tr, opt_proof)) st =
   let
-    val command = command_exception (! interact);
-
-    fun atom_result tr st =
-      let
-        val st' =
-          if Goal.future_enabled () andalso Keyword.is_diag (name_of tr) then
-            setmp_thread_position tr (fn () =>
-              (Goal.fork_name "Toplevel.diag" (priority (Thy_Syntax.atom tr))
-                (fn () => command tr st); st)) ()
-          else command tr st;
-      in ((tr, st'), st') end;
-
     val proof_trs =
       (case opt_proof of
         NONE => []
@@ -772,3 +776,5 @@
   end;
 
 end;
+
+end;