From 82b65b9c0296b20cca44c7c05865bf9750084ab8 Mon Sep 17 00:00:00 2001
From: ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Tue, 5 Mar 2013 15:38:50 +0000
Subject: More monomorphization.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16260 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 grammar/tacextend.ml4 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'grammar/tacextend.ml4')

diff --git a/grammar/tacextend.ml4 b/grammar/tacextend.ml4
index 41cd830b5..e3e957d95 100644
--- a/grammar/tacextend.ml4
+++ b/grammar/tacextend.ml4
@@ -34,7 +34,7 @@ let rec make_when loc = function
       let l = make_when loc l in
       let loc = CompatLoc.merge loc' loc in
       let t = mlexpr_of_argtype loc' t in
-      <:expr< Genarg.genarg_tag $lid:p$ = $t$ && $l$ >>
+      <:expr< Genarg.argument_type_eq (Genarg.genarg_tag $lid:p$) $t$ && $l$ >>
   | _::l -> make_when loc l
 
 let rec make_let e = function
-- 
cgit v1.2.3