diff options
| author | herbelin | 2000-01-26 17:22:13 +0000 |
|---|---|---|
| committer | herbelin | 2000-01-26 17:22:13 +0000 |
| commit | d56cc2ca71eee52a26f401ad2b37b8d9e6019a3c (patch) | |
| tree | 989cc0c825d7c8ac2e95e5f173caf24ae3cd29f7 /parsing/pretty.ml | |
| parent | 3c0c85ea71400cd4b2d1dc5630405dc1f90aa5f3 (diff) | |
MAJ ocaml 2.99 (espaces dans la syntaxe des cast)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@284 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/pretty.ml')
| -rw-r--r-- | parsing/pretty.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/parsing/pretty.ml b/parsing/pretty.ml index 86f5981feb..ab1aef1f5d 100644 --- a/parsing/pretty.ml +++ b/parsing/pretty.ml @@ -338,7 +338,7 @@ let list_filter_vec f vec = and the constr term that represent its type. *) let print_constructors_head - (fn:string -> unit assumptions -> constr -> unit) c mip = + (fn : string -> unit assumptions -> constr -> unit) c mip = let (lna,lC) = decomp_all_DLAMV_name mip.mind_lc in let ass_name = assumptions_for_print lna in let lidC = array_map2 (fun id c_0 -> (id,c_0)) mip.mind_consnames lC in @@ -360,7 +360,7 @@ let print_constructors_rel fn mip = let flid = list_filter_vec (fun (_,c) -> isRel (head_const c)) lidC in List.iter (function (id,c) -> fn (string_of_id id) ass_name c) flid -let crible (fn:string -> unit assumptions -> constr -> unit) name = +let crible (fn : string -> unit assumptions -> constr -> unit) name = let hyps = gLOB (Global.var_context()) in let imported = Library.opened_modules() in let const = global_reference CCI name in |