diff options
| author | msozeau | 2008-05-06 16:33:56 +0000 |
|---|---|---|
| committer | msozeau | 2008-05-06 16:33:56 +0000 |
| commit | 83b0822a9f6d5e35e9bfb1595a3466d7f4e3b12f (patch) | |
| tree | d386c603f2036fc48f602b5f0867d3466f61f0b4 /interp/implicit_quantifiers.ml | |
| parent | 7a39bd5650cc49c5c77788fb42fe2caaf35dfdac (diff) | |
Better parsing of typeclasses, any constr is allowed for ! bindings so
notations work and bug #1846 gets completely fixed.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10890 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/implicit_quantifiers.ml')
| -rw-r--r-- | interp/implicit_quantifiers.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/interp/implicit_quantifiers.ml b/interp/implicit_quantifiers.ml index cf37efc77a..f6bd4fae3e 100644 --- a/interp/implicit_quantifiers.ml +++ b/interp/implicit_quantifiers.ml @@ -185,7 +185,11 @@ let full_class_binders env l = List.fold_left (fun (l', avoid) (iid, bk, cl as x) -> match bk with Implicit -> - let (loc, id, l) = destClassAppExpl cl in + let (loc, id, l) = + try destClassAppExpl cl + with Not_found -> + user_err_loc (constr_loc cl, "class_binders", str"Not an applied type class") + in let gr = Nametab.global id in (try let c = class_info gr in |