Avoid warnings about loop indices.

1 files changed, 1 insertions, 1 deletions

diff --git a/ide/ideutils.ml b/ide/ideutils.ml
index 2e4adba735..ffa07ead7e 100644
--- a/ide/ideutils.ml
+++ b/ide/ideutils.ml
@@ -31,7 +31,7 @@ let push_info,pop_info,clear_info =
   let size = ref 0 in
   (fun s -> incr size; ignore (status_context#push s)),
   (fun () -> decr size; status_context#pop ()),
-  (fun () -> for i = 1 to !size do status_context#pop () done; size := 0)
+  (fun () -> for _i = 1 to !size do status_context#pop () done; size := 0)
 
 let flash_info =
   let flash_context = status#new_context ~name:"Flash" in