From 6e22698aa7b463bb0a45c8eed84a0e8cb2476fcf Mon Sep 17 00:00:00 2001
From: barras
Date: Mon, 1 Aug 2011 13:11:47 +0000
Subject: fixed bug 2580. Quick fix: copy emitcodes before patching it

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14376 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/mod_subst.ml | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'kernel/mod_subst.ml')

diff --git a/kernel/mod_subst.ml b/kernel/mod_subst.ml
index 6a7ecc4427..bf08841c83 100644
--- a/kernel/mod_subst.ml
+++ b/kernel/mod_subst.ml
@@ -553,3 +553,8 @@ let subst_substituted s r =
     | LSlazy(s',a) ->
 	  ref (LSlazy(s::s',a))
 
+(* debug *)
+let repr_substituted r =
+  match !r with
+    | LSval a -> None, a
+    | LSlazy(s,a) -> Some s, a
-- 
cgit v1.2.3