--- a/src/Pure/Concurrent/event_timer.ML Thu Jul 11 11:37:06 2013 +0200
+++ b/src/Pure/Concurrent/event_timer.ML Thu Jul 11 11:40:21 2013 +0200
@@ -115,8 +115,8 @@
fun cancel req =
Synchronized.change_result state (fn (requests, manager) =>
let
- val (cancelled, requests') = del_request req requests;
- in (cancelled, (requests', manager)) end);
+ val (canceled, requests') = del_request req requests;
+ in (canceled, (requests', manager)) end);
fun shutdown () =
Synchronized.guarded_access state (fn (requests, manager) =>