diff options
| author | herbelin | 2008-07-18 10:06:36 +0000 |
|---|---|---|
| committer | herbelin | 2008-07-18 10:06:36 +0000 |
| commit | ccff0b020b3a0950a6358846b6a40b8cd7a96562 (patch) | |
| tree | 79512d1401e69130c4f0bc15cd4fe26ba6f3300b /interp | |
| parent | c24154216b7ef81e85ca2dead4429c3595aa9e93 (diff) | |
Modification rapide du message d'erreur lorsqu'un _ ne peut être
effacé dans un intro-pattern (suggéré par ssreflect).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11235 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/genarg.ml | 4 | ||||
| -rw-r--r-- | interp/genarg.mli | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/interp/genarg.ml b/interp/genarg.ml index ac45bfe8dd..b371582a15 100644 --- a/interp/genarg.ml +++ b/interp/genarg.ml @@ -76,7 +76,7 @@ let exists_argtype s = List.mem s !dyntab type intro_pattern_expr = | IntroOrAndPattern of case_intro_pattern_expr - | IntroWildcard + | IntroWildcard of loc | IntroIdentifier of identifier | IntroAnonymous | IntroRewrite of bool @@ -85,7 +85,7 @@ and case_intro_pattern_expr = intro_pattern_expr list list let rec pr_intro_pattern = function | IntroOrAndPattern pll -> pr_case_intro_pattern pll - | IntroWildcard -> str "_" + | IntroWildcard _ -> str "_" | IntroIdentifier id -> pr_id id | IntroAnonymous -> str "?" | IntroRewrite true -> str "->" diff --git a/interp/genarg.mli b/interp/genarg.mli index 9773082181..da03718999 100644 --- a/interp/genarg.mli +++ b/interp/genarg.mli @@ -33,7 +33,7 @@ type 'a with_ebindings = 'a * open_constr bindings type intro_pattern_expr = | IntroOrAndPattern of case_intro_pattern_expr - | IntroWildcard + | IntroWildcard of loc | IntroIdentifier of identifier | IntroAnonymous | IntroRewrite of bool |