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 50909 b2fb1ab1475d
parent 50683 34b109c5324c
child 50911 ee7fe4230642 
--- a/src/Pure/Concurrent/future.ML	Tue Jan 15 20:51:30 2013 +0100
+++ b/src/Pure/Concurrent/future.ML	Wed Jan 16 11:25:26 2013 +0100
@@ -439,7 +439,7 @@
   let
     val res =
       (case raw_res of
-        Exn.Exn exn => Exn.Exn (#2 (Par_Exn.serial exn))
+        Exn.Exn exn => Exn.Exn (Par_Exn.set_serial exn)
       | _ => raw_res);
     val _ = Single_Assignment.assign result res
       handle exn as Fail _ =>
isabelle