Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/Pure/Concurrent/future.ML
changeset 50916 fd902b616b48
parent 50914 fe4714886d92
child 50931 a7484a7b6c8a 
--- a/src/Pure/Concurrent/future.ML	Wed Jan 16 21:09:29 2013 +0100
+++ b/src/Pure/Concurrent/future.ML	Wed Jan 16 21:39:43 2013 +0100
@@ -438,8 +438,9 @@
 (* results *)
 
 fun error_msg pos ((serial, msg), exec_id) =
-  if is_none exec_id orelse exec_id = Position.get_id pos
-  then Output.error_msg' (serial, msg) else warning msg;
+  Position.setmp_thread_data pos (fn () =>
+    if is_none exec_id orelse exec_id = Position.get_id pos
+    then Output.error_msg' (serial, msg) else warning msg) ();
 
 fun identify_result pos res =
   (case res of
isabelle