src/Pure/Concurrent/synchronized.ML
changeset 62891 7a11ea5c9626
parent 62819 d3ff367a16a0
child 62918 2fcbd4abc021
--- a/src/Pure/Concurrent/synchronized.ML	Wed Apr 06 16:51:52 2016 +0200
+++ b/src/Pure/Concurrent/synchronized.ML	Wed Apr 06 17:16:30 2016 +0200
@@ -51,7 +51,7 @@
               | Exn.Res false => NONE
               | Exn.Exn exn => Exn.reraise exn)
           | SOME (y, x') =>
-              uninterruptible (fn _ => fn () =>
+              Multithreading.uninterruptible (fn _ => fn () =>
                 (var := x'; ConditionVar.broadcast cond; SOME y)) ())
         end;
     in try_change () end);