Add a representation for the splay tree

1 files changed, 4 insertions, 0 deletions

diff --git a/catalog.mli b/catalog.mli
index d5e5cfd..e871378 100644
--- a/catalog.mli
+++ b/catalog.mli
@@ -5,6 +5,8 @@ module type DATA_SIG = sig
   type 'a returnType
   
   val compare_typ: 'a typ -> 'b typ -> ('a, 'b) Tools.cmp
+
+  val repr: Format.formatter -> 'a typ -> unit
   
 end
 
@@ -31,4 +33,6 @@ module Make(D:DATA_SIG): sig
   (** Find a function with the given name and signature *)
   val find_function: t -> string -> 'a t_function sig_typ -> 'a t_function
 
+  val repr: Format.formatter -> t -> unit
+
 end