(module (slib wt-tree)
  (make-wt-tree-type
   wt-tree-type?
   number-wt-type
   string-wt-type
   make-wt-tree
   singleton-wt-tree
   alist->wt-tree
   wt-tree?
   wt-tree/empty?
   wt-tree/size
   wt-tree/add
   wt-tree/delete
   wt-tree/add!
   wt-tree/delete!
   wt-tree/member?
   wt-tree/lookup
   wt-tree/split<
   wt-tree/split>
   wt-tree/union
   wt-tree/union-merge
   wt-tree/intersection
   wt-tree/difference
   wt-tree/subset?
   wt-tree/set-equal?
   wt-tree/fold
   wt-tree/for-each
   wt-tree/index
   wt-tree/index-datum
   wt-tree/index-pair
   wt-tree/rank
   wt-tree/min
   wt-tree/min-datum
   wt-tree/min-pair
   wt-tree/delete-min
   wt-tree/delete-min!
   )

  (import scheme
          (chicken base)
          (chicken fixnum)
          (chicken type)
          typed-records
          )

  (include "wt-tree-impl.scm")
  )