]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/helena/src/xml/xmlLibrary.ml
- conditional compilation continues ...
[helm.git] / helm / software / helena / src / xml / xmlLibrary.ml
index 901c783a20273edcfc18c16e20d449d245afcc3d..4667b3aa57db8fd9009d17b1416a2fab6c7866c4 100644 (file)
@@ -18,6 +18,8 @@ module H  = Hierarchy
 module N  = Layer
 module E  = Entity
 
+IFDEF OBJECTS THEN
+
 (* internal functions *******************************************************)
 
 let base = "xml"
@@ -150,3 +152,5 @@ let export_entity pp_term (ra, na, u, b) =
    let attrs = [xmlns; "hierarchy", shp; "options", opts] in
    tag obj_root attrs ~contents out 0;
    close_out och
+
+END