diff options
| author | letouzey | 2003-10-06 13:59:21 +0000 |
|---|---|---|
| committer | letouzey | 2003-10-06 13:59:21 +0000 |
| commit | 5a0663fdebb0efd05624ee68b5ba06b2b823013e (patch) | |
| tree | c0dce5fee127da33edc3a7cb8fe72c7fda1cc4c7 | |
| parent | 1eec50ffa6aaa5e602824674c85548afd7f4516d (diff) | |
pour ocamlweb
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4530 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/extraction/extract_env.ml | 8 |
1 files 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 |