From d56cc2ca71eee52a26f401ad2b37b8d9e6019a3c Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 26 Jan 2000 17:22:13 +0000
Subject: 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
---
 parsing/egrammar.ml | 2 +-
 parsing/pretty.ml   | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'parsing')

diff --git a/parsing/egrammar.ml b/parsing/egrammar.ml
index c7931553bb..166d43536c 100644
--- a/parsing/egrammar.ml
+++ b/parsing/egrammar.ml
@@ -10,7 +10,7 @@ open Extend
 
 (* State of the grammar extensions *)
 
-let (grammar_state: grammar_command list ref) = ref []
+let (grammar_state : grammar_command list ref) = ref []
 
 (* Interpretation of the right hand side of grammar rules *)
 
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 
-- 
cgit v1.2.3