From 3758cf9887172ecccb5d2e18e301c6ff1bb1c9f5 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin <Hugo.Herbelin@inria.fr>
Date: Sat, 21 Jun 2014 15:35:40 +0200
Subject: Less ocaml warnings.

---
 lib/control.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/control.ml')

diff --git a/lib/control.ml b/lib/control.ml
index 40ffa17b1..67d5a9b4e 100644
--- a/lib/control.ml
+++ b/lib/control.ml
@@ -60,7 +60,7 @@ let windows_timeout n f e =
     done
   in
   let init = Unix.time () in
-  let id = Thread.create thread init in
+  let _id = Thread.create thread init in
   try
     let res = f () in
     let () = killed := true in
-- 
cgit v1.2.3