diff options
| author | herbelin | 2003-11-14 11:42:58 +0000 |
|---|---|---|
| committer | herbelin | 2003-11-14 11:42:58 +0000 |
| commit | 233dbec7b19b00a741f57ac9c1294ac1c8780a13 (patch) | |
| tree | c74082de677f19c5f31fd72ab99e295d401ee9ad | |
| parent | bec6f4b757bb88ab87a322882a18caead3d3b065 (diff) | |
Bug parsing cast
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4899 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/g_constrnew.ml4 | 4 |
1 files 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) ] |