From 51684142c40fced940bb870742bc7f75c3e2fd52 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Mon, 19 Aug 2013 18:16:23 +0000
Subject: 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
---
 tools/fake_ide.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tools')

diff --git a/tools/fake_ide.ml b/tools/fake_ide.ml
index 5bfa377f0b..19a82d6ea3 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)
-- 
cgit v1.2.3