From ab2560233f2e6fc8c26853af6991533d8d335e16 Mon Sep 17 00:00:00 2001
From: Vincent Laporte
Date: Fri, 7 Sep 2018 11:34:32 +0200
Subject: Retroknowledge: remove the (unused) by clause

---
 library/global.ml  | 4 ++--
 library/global.mli | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'library')

diff --git a/library/global.ml b/library/global.ml
index e833f71142..5872126a12 100644
--- a/library/global.ml
+++ b/library/global.ml
@@ -271,8 +271,8 @@ let with_global f =
     push_context_set false ctx; a
 
 (* spiwack: register/unregister functions for retroknowledge *)
-let register field value by_clause =
-  globalize0 (Safe_typing.register field value by_clause)
+let register field value =
+  globalize0 (Safe_typing.register field value)
 
 let register_inline c = globalize0 (Safe_typing.register_inline c)
 
diff --git a/library/global.mli b/library/global.mli
index 2819c187ed..1708976222 100644
--- a/library/global.mli
+++ b/library/global.mli
@@ -148,7 +148,7 @@ val universes_of_global : GlobRef.t -> Univ.AUContext.t
 (** {6 Retroknowledge } *)
 
 val register :
-  Retroknowledge.field -> Constr.constr -> Constr.constr -> unit
+  Retroknowledge.field -> Constr.constr -> unit
 
 val register_inline : Constant.t -> unit
 
-- 
cgit v1.2.3


From 2ec78477c720ba3a5343b49f25cfa9c1639adbba Mon Sep 17 00:00:00 2001
From: Vincent Laporte
Date: Fri, 7 Sep 2018 17:34:11 +0200
Subject: Retroknowledge: use GlobRef.t instead of Constr.t as entry

---
 library/global.mli | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'library')

diff --git a/library/global.mli b/library/global.mli
index 1708976222..6aeae9fd02 100644
--- a/library/global.mli
+++ b/library/global.mli
@@ -148,7 +148,7 @@ val universes_of_global : GlobRef.t -> Univ.AUContext.t
 (** {6 Retroknowledge } *)
 
 val register :
-  Retroknowledge.field -> Constr.constr -> unit
+  Retroknowledge.field -> GlobRef.t -> unit
 
 val register_inline : Constant.t -> unit
 
-- 
cgit v1.2.3