From 2145319442699bb3a2ab0158ea702fa2558a5150 Mon Sep 17 00:00:00 2001
From: pboutill
Date: Fri, 22 Jul 2011 13:26:27 +0000
Subject: Add a syntax entry for fully applied constructor pattern

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14292 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 plugins/decl_mode/decl_interp.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'plugins')

diff --git a/plugins/decl_mode/decl_interp.ml b/plugins/decl_mode/decl_interp.ml
index a2b889fe03..64aa08ff2b 100644
--- a/plugins/decl_mode/decl_interp.ml
+++ b/plugins/decl_mode/decl_interp.ml
@@ -93,7 +93,7 @@ let rec add_vars_of_simple_pattern globs = function
 	(UserError ("simple_pattern",str "\"(_ | _)\" is not allowed here"))
   | CPatDelimiters (_,_,p) ->
       add_vars_of_simple_pattern globs p
-  | CPatCstr (_,_,pl) ->
+  | CPatCstr (_,_,pl) | CPatCstrExpl (_,_,pl) ->
       List.fold_left add_vars_of_simple_pattern globs pl
   | CPatNotation(_,_,(pl,pll)) ->
       List.fold_left add_vars_of_simple_pattern globs (List.flatten (pl::pll))
-- 
cgit v1.2.3