From 2ae542f4f479c4dfa743df2880b4f8cdfa61a290 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 15 Jan 2003 16:25:59 +0000
Subject: 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
---
 parsing/g_vernac.ml4 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
     ] ]
   ;
-- 
cgit v1.2.3