diff options
author | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2016-01-02 16:52:33 +0100 |
---|---|---|
committer | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2016-01-02 16:52:33 +0100 |
commit | 82ac0604888679bc2fbdeda9ac264d7cd10f7928 (patch) | |
tree | 49d0a387c5345f17f3b18e82e5a2704e3487b5c7 /ide/document.ml | |
parent | 2c8275ee3e0e5cd4eb8afd24047fda7f864e0e4e (diff) |
Avoid warnings about loop indices.
Diffstat (limited to 'ide/document.ml')
-rw-r--r-- | ide/document.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ide/document.ml b/ide/document.ml index 9823e7576..41d5a7564 100644 --- a/ide/document.ml +++ b/ide/document.ml @@ -154,7 +154,7 @@ let cut_at d id = if stateid_opt_equal state_id (Some id) then CSig.Stop (n, zone) else CSig.Cont (n + 1, data :: zone) in let n, zone = CList.fold_left_until aux (0, []) d.stack in - for i = 1 to n do ignore(pop d) done; + for _i = 1 to n do ignore(pop d) done; List.rev zone let find_id d f = |