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
---
 printing/ppvernac.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'printing')

diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml
index b5277b62e3..06d0958183 100644
--- a/printing/ppvernac.ml
+++ b/printing/ppvernac.ml
@@ -480,7 +480,7 @@ let rec pr_vernac = function
   | VernacStm JoinDocument -> str"Stm JoinDocument"
   | VernacStm Finish -> str"Stm Finish"
   | VernacStm (Observe id) ->
-      str"Stm Observe " ++ str(Stateid.string_of_state_id id)
+      str"Stm Observe " ++ str(Stateid.to_string id)
   | VernacStm (Command v) -> str"Stm Command " ++ pr_vernac v
   | VernacStm (PGLast v) -> str"Stm PGLast " ++ pr_vernac v
 
-- 
cgit v1.2.3