diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-01-20 17:28:57 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-01-20 17:28:57 +0000 |
| commit | 2a0d68896a5dba1d731af87d8d466622a5ad568c (patch) | |
| tree | 12cb160976c216929207ad2681bcf5965e89e1b3 /interp | |
| parent | 0cde837672eae63965bdf4f02767d9492f365c7d (diff) | |
Fixing a bug in 11804 (support for _ in ident entry of notations).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11816 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/topconstr.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/topconstr.ml b/interp/topconstr.ml index d31230552..e0a8ca600 100644 --- a/interp/topconstr.ml +++ b/interp/topconstr.ml @@ -98,7 +98,7 @@ let rawconstr_of_aconstr_with_binders loc g f e = function e',Some (loc,ind,npar,nal') in let e',na' = g e' na in (e',(f e tm,(na',t'))::tml')) tml (e,[]) in - let fold (nal,e) na = let (e,na) = g e na in ((name_to_ident na::nal,e),na) in + let fold (idl,e) na = let (e,na) = g e na in ((name_cons na idl,e),na) in let eqnl' = List.map (fun (patl,rhs) -> let ((idl,e),patl) = list_fold_map (cases_pattern_fold_map loc fold) ([],e) patl in |