From 83a92df4e2e94bfc33354cf26627329d4a2e0610 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Sun, 3 Sep 2017 17:39:16 +0200
Subject: Allowing complex types in ML objects.

---
 src/tac2env.ml | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/tac2env.ml')

diff --git a/src/tac2env.ml b/src/tac2env.ml
index 489113c031..56fd55ee84 100644
--- a/src/tac2env.ml
+++ b/src/tac2env.ml
@@ -251,9 +251,10 @@ let shortest_qualid_of_projection kn =
   let sp = KNmap.find kn tab.tab_proj_rev in
   KnTab.shortest_qualid Id.Set.empty sp tab.tab_proj
 
+type ('a, 'b, 'r) intern_fun = Genintern.glob_sign -> 'a -> 'b * 'r glb_typexpr
+
 type ('a, 'b) ml_object = {
-  ml_type : type_constant;
-  ml_intern : Genintern.glob_sign -> 'a -> 'b;
+  ml_intern : 'r. (raw_tacexpr, glb_tacexpr, 'r) intern_fun -> ('a, 'b, 'r) intern_fun;
   ml_subst : Mod_subst.substitution -> 'b -> 'b;
   ml_interp : environment -> 'b -> valexpr Proofview.tactic;
   ml_print : Environ.env -> 'b -> Pp.t;
-- 
cgit v1.2.3