diff options
| author | msozeau | 2010-01-28 16:05:55 +0000 |
|---|---|---|
| committer | msozeau | 2010-01-28 16:05:55 +0000 |
| commit | 2a384d9b4ea4b6de87d2d5a2a7259425589643cb (patch) | |
| tree | 612c03169db82fb08cc9b2a021483b283d5a6957 /interp/implicit_quantifiers.ml | |
| parent | 5e70300acbfed51607425f132c98554e075219b3 (diff) | |
Fix implicit_application for let-bound variables in the class context.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12697 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/implicit_quantifiers.ml')
| -rw-r--r-- | interp/implicit_quantifiers.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/interp/implicit_quantifiers.ml b/interp/implicit_quantifiers.ml index 123998411b..d5894b208c 100644 --- a/interp/implicit_quantifiers.ml +++ b/interp/implicit_quantifiers.ml @@ -226,6 +226,7 @@ let combine_params avoid fn applied needed = (fun x -> match x with (t, Some (loc, ExplByName id)) -> id, t | _ -> assert false) named in + let needed = List.filter (fun (_, (_, b, _)) -> b = None) needed in let rec aux ids avoid app need = match app, need with [], [] -> List.rev ids, avoid |