From e2f27dfcb21c42b72cf8d6a1363251f4c48789cb Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>
Date: Wed, 5 Mar 2014 12:06:17 +0100
Subject: Changing Retrokwnoledge entry type from kind_of_term to constr. It
 seems it had no particular purpose.

---
 kernel/modops.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel/modops.ml')

diff --git a/kernel/modops.ml b/kernel/modops.ml
index 188bff626..6d0e919f8 100644
--- a/kernel/modops.ml
+++ b/kernel/modops.ml
@@ -282,7 +282,7 @@ let subst_structure subst = subst_structure subst do_delta_codom
 (* lclrk : retroknowledge_action list, rkaction : retroknowledge action *)
 let add_retroknowledge mp =
   let perform rkaction env = match rkaction with
-    |Retroknowledge.RKRegister (f, (Const _ | Ind _ as e)) ->
+    |Retroknowledge.RKRegister (f, e) when (isConst e || isInd e) ->
       Environ.register env f e
     |_ ->
       Errors.anomaly ~label:"Modops.add_retroknowledge"
-- 
cgit v1.2.3