From e2f27dfcb21c42b72cf8d6a1363251f4c48789cb Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot 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/retroknowledge.ml | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'kernel/retroknowledge.ml') diff --git a/kernel/retroknowledge.ml b/kernel/retroknowledge.ml index 0c03e3299..632889080 100644 --- a/kernel/retroknowledge.ml +++ b/kernel/retroknowledge.ml @@ -24,7 +24,7 @@ open Term about a specific name.*) (* aliased type for clarity purpose*) -type entry = (constr, types) kind_of_term +type entry = Constr.t (* the following types correspond to the different "things" the kernel can learn about. These are the fields of the proactive knowledge*) @@ -103,8 +103,7 @@ type proactive = entry Proactive.t module EntryOrd = struct type t = entry - let make (e : entry) : constr = Obj.magic e (** WARNING: maybe to be updated. *) - let compare c1 c2 = Constr.compare (make c1) (make c2) + let compare = Constr.compare end module Reactive = Map.Make (EntryOrd) -- cgit v1.2.3