diff options
| author | herbelin | 2003-01-15 16:25:59 +0000 |
|---|---|---|
| committer | herbelin | 2003-01-15 16:25:59 +0000 |
| commit | 2ae542f4f479c4dfa743df2880b4f8cdfa61a290 (patch) | |
| tree | f8ef9dcdaf72d53c88198e5c683334afe358deb7 | |
| parent | 012d2861f62623bad12eecb9ccb275008403b02e (diff) | |
Syntaxe 'Record id : c ...' autorisée même si c n'est que convertible à une sorte
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3503 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/g_vernac.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/g_vernac.ml4 b/parsing/g_vernac.ml4 index fdf73d047d..b4a7fce5b3 100644 --- a/parsing/g_vernac.ml4 +++ b/parsing/g_vernac.ml4 @@ -306,7 +306,7 @@ GEXTEND Gram let indl' = List.map (fun (id,ar,c) -> (id,bl,ar,c)) indl in VernacInductive (f,indl') | record_token; oc = opt_coercion; name = base_ident; ps = indpar; ":"; - s = sort; ":="; c = rec_constructor; "{"; fs = fields; "}" -> + s = constr; ":="; c = rec_constructor; "{"; fs = fields; "}" -> VernacRecord ((oc,name),ps,s,c,fs) ] ] ; |