+ let xmldir = Helm_registry.get "matita.basedir" ^ "/xml" in
+ ignore
+ (Sys.command
+ ("find " ^ xmldir ^
+ " -name *.xml.gz -o -name *.moo -exec rm {} \\; 2> /dev/null"));
+ ignore (Sys.command ("find " ^ xmldir ^ " -type d -exec rmdir -p {} \\; 2> /dev/null"));