src/Pure/PIDE/command.ML
changeset 51603 92fda7beace4
parent 51595 8e9746e584c9
child 51605 eca8acb42e4a
     1.1 --- a/src/Pure/PIDE/command.ML	Wed Apr 03 16:45:14 2013 +0200
     1.2 +++ b/src/Pure/PIDE/command.ML	Wed Apr 03 20:38:50 2013 +0200
     1.3 @@ -63,8 +63,9 @@
     1.4  
     1.5  fun run int tr st =
     1.6    if Goal.future_enabled () andalso Keyword.is_diag (Toplevel.name_of tr) then
     1.7 -    (Goal.fork_name "Toplevel.diag" ~1 (fn () => Toplevel.command_exception int tr st);
     1.8 -      ([], SOME st))
     1.9 +    Toplevel.setmp_thread_position tr (fn () =>
    1.10 +      (Goal.fork_name "Toplevel.diag" ~1 (fn () => Toplevel.command_exception int tr st);
    1.11 +        ([], SOME st))) ()
    1.12    else Toplevel.command_errors int tr st;
    1.13  
    1.14  fun check_cmts tr cmts st =