diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-11-29 23:53:46 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-11-29 23:53:46 +0000 |
| commit | 9ef6ebf95fb55f1d078454fef129be809aa4a431 (patch) | |
| tree | c87a02e28c9409cdfd76ea58f0439511a9370fbb /contrib | |
| parent | 7cb2c534d77fb4e5fa34e1b9acf894b2f34420dc (diff) | |
correctif pour que type t = M.t contienne bien son M.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7627 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/extraction/ocaml.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/contrib/extraction/ocaml.ml b/contrib/extraction/ocaml.ml index ee53bd49a..575f199eb 100644 --- a/contrib/extraction/ocaml.ml +++ b/contrib/extraction/ocaml.ml @@ -483,8 +483,9 @@ let pp_decl mpl = | Dtype (r, l, t) -> if is_inline_custom r then failwith "empty phrase" else + let pp_r = pp_global r in let l = rename_tvars keywords l in - let ids, def = try + let ids, def = try let ids,s = find_type_custom r in pp_string_parameters ids, str "=" ++ spc () ++ str s with not_found -> @@ -492,7 +493,7 @@ let pp_decl mpl = if t = Taxiom then str "(* AXIOM TO BE REALIZED *)" else str "=" ++ spc () ++ pp_type false l t in - hov 2 (str "type" ++ spc () ++ ids ++ pp_global r ++ + hov 2 (str "type" ++ spc () ++ ids ++ pp_r ++ spc () ++ def) | Dterm (r, a, t) -> if is_inline_custom r then failwith "empty phrase" |