diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-08-19 18:16:23 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-08-19 18:16:23 +0000 |
| commit | 51684142c40fced940bb870742bc7f75c3e2fd52 (patch) | |
| tree | 9a8e883e7c53d2fa23ef8f0d9deffabeccfeb56e /tools | |
| parent | 09d7951e0c0009e4ac55091cede25b88576759d2 (diff) | |
Modulification and removing of structural equality in Stateid.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16705 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/fake_ide.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/fake_ide.ml b/tools/fake_ide.ml index 5bfa377f0..19a82d6ea 100644 --- a/tools/fake_ide.ml +++ b/tools/fake_ide.ml @@ -46,7 +46,7 @@ let store_id = function let rec erase_ids n = if n = 0 then match !ids with - | [] -> Stateid.initial_state_id + | [] -> Stateid.initial | x :: _ -> x else match !ids with | id :: rest -> ids := rest; erase_ids (n-1) |