# HG changeset patch
# User wenzelm
# Date 1211652736 -7200
# Node ID de7738deadfbee8789a6a9a464c319dde82aced5
# Parent  0e7ba2749d70cc3c158d339c069c4872cc3b0c5f
present_excursion: setmp_thread_position during presentation;

diff -r 0e7ba2749d70 -r de7738deadfb src/Pure/Isar/toplevel.ML
--- a/src/Pure/Isar/toplevel.ML	Sat May 24 20:05:21 2008 +0200
+++ b/src/Pure/Isar/toplevel.ML	Sat May 24 20:12:16 2008 +0200
@@ -684,7 +684,7 @@
   | excur ((tr, pr) :: trs) (st, res) =
       (case transition (! interact) tr st of
         SOME (st', NONE) =>
-          excur trs (st', pr st st' res handle exn =>
+          excur trs (st', setmp_thread_position tr (fn () => pr st st' res) () handle exn =>
             raise EXCURSION_FAIL (exn, "Presentation failed\n" ^ at_command tr))
       | SOME (st', SOME exn_info) => raise EXCURSION_FAIL exn_info
       | NONE => raise EXCURSION_FAIL (TERMINATE, at_command tr));