diff options
| author | herbelin | 2009-04-08 12:58:07 +0000 |
|---|---|---|
| committer | herbelin | 2009-04-08 12:58:07 +0000 |
| commit | 92696abcaab68c70461c285ada87e50dacf3bb34 (patch) | |
| tree | 879c41374e123e6890bc078ca3dc8aa75c2b71de /parsing | |
| parent | 231ab951f0da54d81c74afefc11a43be4057e662 (diff) | |
- Backport of 12053 (fixing parsing segfault bug #2087) and 12058 (fixing
Not_found bug in Theorem with) from V8.2 to trunk.
- Improving indentation in presence of tabulation and utf-8 when
reporting error messages with "^^^^^^".
- Updating a few svn:ignore properties.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12059 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/pcoq.ml4 | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/parsing/pcoq.ml4 b/parsing/pcoq.ml4 index cab5c1a5d9..1e5b21ec48 100644 --- a/parsing/pcoq.ml4 +++ b/parsing/pcoq.ml4 @@ -735,7 +735,10 @@ let is_binder_level from e = let rec symbol_of_production assoc from forpat typ = if is_binder_level from typ then - Gramext.Snterml (Gram.Entry.obj Constr.operconstr,"200") + if forpat then + Gramext.Snterml (Gram.Entry.obj Constr.pattern,"200") + else + Gramext.Snterml (Gram.Entry.obj Constr.operconstr,"200") else if is_self from typ then Gramext.Sself else |