diff options
| author | ppedrot | 2012-12-18 18:52:54 +0000 |
|---|---|---|
| committer | ppedrot | 2012-12-18 18:52:54 +0000 |
| commit | c3ca134628ad4d9ef70a13b65c48ff17c737238f (patch) | |
| tree | 136b4efbc3aefe76dcd2fa772141c774343f46df /parsing | |
| parent | 6946bbbf2390024b3ded7654814104e709cce755 (diff) | |
Modulification of name
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16099 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/egramcoq.ml | 4 | ||||
| -rw-r--r-- | parsing/pcoq.mli | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/parsing/egramcoq.ml b/parsing/egramcoq.ml index 0677fa8df4..59768f5a68 100644 --- a/parsing/egramcoq.ml +++ b/parsing/egramcoq.ml @@ -79,7 +79,7 @@ let make_constr_action Gram.action (fun (v:reference) -> make (CRef v :: constrs, constrlists, binders) tl) | ETName -> - Gram.action (fun (na:Loc.t * name) -> + Gram.action (fun (na:Loc.t * Name.t) -> make (constr_expr_of_name na :: constrs, constrlists, binders) tl) | ETBigint -> Gram.action (fun (v:Bigint.bigint) -> @@ -130,7 +130,7 @@ let make_cases_pattern_action Gram.action (fun (v:reference) -> make (CPatAtom (Loc.ghost,Some v) :: env, envlist, hasbinders) tl) | ETName -> - Gram.action (fun (na:Loc.t * name) -> + Gram.action (fun (na:Loc.t * Name.t) -> make (cases_pattern_expr_of_name na :: env, envlist, hasbinders) tl) | ETBigint -> Gram.action (fun (v:Bigint.bigint) -> diff --git a/parsing/pcoq.mli b/parsing/pcoq.mli index a5f99a40b3..8ccc3ebef6 100644 --- a/parsing/pcoq.mli +++ b/parsing/pcoq.mli @@ -160,7 +160,7 @@ module Prim : open Libnames val preident : string Gram.entry val ident : Id.t Gram.entry - val name : name located Gram.entry + val name : Name.t located Gram.entry val identref : Id.t located Gram.entry val pattern_ident : Id.t Gram.entry val pattern_identref : Id.t located Gram.entry @@ -198,7 +198,7 @@ module Constr : val binders : local_binder list Gram.entry (* list of binder *) val open_binders : local_binder list Gram.entry val binders_fixannot : (local_binder list * (Id.t located option * recursion_order_expr)) Gram.entry - val typeclass_constraint : (name located * bool * constr_expr) Gram.entry + val typeclass_constraint : (Name.t located * bool * constr_expr) Gram.entry val record_declaration : constr_expr Gram.entry val appl_arg : (constr_expr * explicitation located option) Gram.entry end |