From 233dbec7b19b00a741f57ac9c1294ac1c8780a13 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 14 Nov 2003 11:42:58 +0000
Subject: Bug parsing cast

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4899 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/g_constrnew.ml4 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/parsing/g_constrnew.ml4 b/parsing/g_constrnew.ml4
index 7714ddba78..3fc3e704e2 100644
--- a/parsing/g_constrnew.ml4
+++ b/parsing/g_constrnew.ml4
@@ -166,11 +166,11 @@ GEXTEND Gram
       [ c = binder_constr -> c ]
     | "100" RIGHTA
       [ c1 = operconstr; ":"; c2 = binder_constr -> CCast(loc,c1,c2)
-      | c1 = operconstr; ":"; c2 = operconstr LEVEL "200" -> CCast(loc,c1,c2) ]
+      | c1 = operconstr; ":"; c2 = SELF -> CCast(loc,c1,c2) ]
     | "99" RIGHTA [ ]
     | "90" RIGHTA
       [ c1 = operconstr; "->"; c2 = binder_constr -> CArrow(loc,c1,c2)
-      | c1 = operconstr; "->"; c2 = operconstr LEVEL"200" -> CArrow(loc,c1,c2)]
+      | c1 = operconstr; "->"; c2 = SELF -> CArrow(loc,c1,c2)]
     | "10"
       [ f=operconstr; args=LIST1 appl_arg -> CApp(loc,(None,f),args)
       | "@"; f=global; args=LIST0 NEXT -> CAppExpl(loc,(None,f),args) ]
-- 
cgit v1.2.3