From 5a0663fdebb0efd05624ee68b5ba06b2b823013e Mon Sep 17 00:00:00 2001
From: letouzey
Date: Mon, 6 Oct 2003 13:59:21 +0000
Subject: pour ocamlweb

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4530 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/extraction/extract_env.ml | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/contrib/extraction/extract_env.ml b/contrib/extraction/extract_env.ml
index 0495e6244c..a37f9bbb63 100644
--- a/contrib/extraction/extract_env.ml
+++ b/contrib/extraction/extract_env.ml
@@ -118,8 +118,8 @@ let rec extract_msig env v mp = function
 	(l,Spec s) :: (extract_msig env v mp msig)
       end
   | (l,SPBmodule {msb_modtype=mtb}) :: msig -> 
-(*      let mpo = Some (MPdot (mp,l)) in  *)
-      (l,Smodule (extract_mtb env v None (* mpo *) mtb)) :: (extract_msig env v mp msig)
+(*i      let mpo = Some (MPdot (mp,l)) in  i*)
+      (l,Smodule (extract_mtb env v None (*i mpo i*) mtb)) :: (extract_msig env v mp msig)
   | (l,SPBmodtype mtb) :: msig -> 
       (l,Smodtype (extract_mtb env v None mtb)) :: (extract_msig env v mp msig)
 
@@ -335,7 +335,7 @@ let extraction_library m =
 	let struc = 
 	  let env = Global.env () in
 	  let select l (mp,meb) = 
-	    if in_mp v mp (* mp est long -> in_mp peut etre sans long_mp *)
+	    if in_mp v mp (* [mp] est long -> [in_mp] peut etre sans [long_mp] *)
 	    then (mp, unpack (extract_meb env v (Some mp) true meb)) :: l 
 	    else l
 	  in 
@@ -371,7 +371,7 @@ let recursive_extraction_library m =
 	let struc = 
 	  let env = Global.env () in
 	  let select l (mp,meb) = 
-	    if in_mp v mp (* mp est long -> in_mp peut etre sans long_mp *)
+	    if in_mp v mp (* [mp] est long -> [in_mp] peut etre sans [long_mp] *)
 	    then (mp, unpack (extract_meb env v (Some mp) true meb)) :: l 
 	    else l
 	  in 
-- 
cgit v1.2.3