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/timeout.ML
changeset 62924 ce47945ce4fb
parent 62923 3a122e1e352a
child 67000 1698e9ccef2d 
--- a/src/Pure/Concurrent/timeout.ML	Sat Apr 09 14:00:23 2016 +0200
+++ b/src/Pure/Concurrent/timeout.ML	Sat Apr 09 14:11:31 2016 +0200
@@ -30,7 +30,7 @@
 
       val stop = Time.now ();
       val was_timeout = not (Event_Timer.cancel request);
-      val test = Exn.capture Multithreading.interrupted ();
+      val test = Exn.capture Thread_Attributes.expose_interrupt ();
     in
       if was_timeout andalso (Exn.is_interrupt_exn result orelse Exn.is_interrupt_exn test)
       then raise TIMEOUT (stop - start)
isabelle