module XL = XmlLibrary
module D = Crg
+IFDEF OBJECTS THEN
+
(* internal functions *******************************************************)
let lenv_iter map_bind map_appl map_proj st e lenv out tab =
(* interface functions ******************************************************)
let export_term st = exp_term st D.empty_lenv
+
+END