From 2a0d68896a5dba1d731af87d8d466622a5ad568c Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 20 Jan 2009 17:28:57 +0000
Subject: 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
---
 interp/topconstr.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/interp/topconstr.ml b/interp/topconstr.ml
index d312305529..e0a8ca600e 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
-- 
cgit v1.2.3