diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-03-05 12:06:17 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-03-14 23:28:16 +0100 |
| commit | e2f27dfcb21c42b72cf8d6a1363251f4c48789cb (patch) | |
| tree | 1bd114ab10ca7c0db82fcdbc0974603840795b9c /kernel/retroknowledge.ml | |
| parent | 2a6b7b0dc7093f5706b7a6ebe826b45a5fd8858a (diff) | |
Changing Retrokwnoledge entry type from kind_of_term to constr. It seems it had
no particular purpose.
Diffstat (limited to 'kernel/retroknowledge.ml')
| -rw-r--r-- | kernel/retroknowledge.ml | 5 |
1 files changed, 2 insertions, 3 deletions
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) |