changeset 62505 | 9e2a65912111 |
parent 59195 | f8588372d70e |
child 62663 | bea354f6ff21 |
--- a/src/Pure/Concurrent/synchronized.ML Thu Mar 03 14:03:06 2016 +0100 +++ b/src/Pure/Concurrent/synchronized.ML Thu Mar 03 15:23:02 2016 +0100 @@ -49,7 +49,7 @@ (case Multithreading.sync_wait NONE (time_limit x) cond lock of Exn.Res true => try_change () | Exn.Res false => NONE - | Exn.Exn exn => reraise exn) + | Exn.Exn exn => Exn.reraise exn) | SOME (y, x') => uninterruptible (fn _ => fn () => (var := x'; ConditionVar.broadcast cond; SOME y)) ())