X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_transformations%2FapplyStylesheets.ml;h=72f39ea4dc4ce72c93c082d7dd2b49205f6d90c0;hb=ac7687ce66526f905874ed99a845223c853c558a;hp=c72415bcfd2a71bca45ba79a8072a7d5f5db5c7a;hpb=5e4a9151cb9c5b9457655a3b2a55fce1ea46f08b;p=helm.git

diff --git a/helm/ocaml/cic_transformations/applyStylesheets.ml b/helm/ocaml/cic_transformations/applyStylesheets.ml
index c72415bcf..72f39ea4d 100644
--- a/helm/ocaml/cic_transformations/applyStylesheets.ml
+++ b/helm/ocaml/cic_transformations/applyStylesheets.ml
@@ -130,8 +130,8 @@ let apply_sequent_stylesheets sequent_doc =
 
 (*CSC: the getter should handle the innertypes, not the FS *)
 
-let innertypesfile = Helm_registry.get "gtoplevel.inner_types_file";;
-let constanttypefile = Helm_registry.get "gtoplevel.constant_type_file";;
+let innertypesfile () = Helm_registry.get "gtoplevel.inner_types_file";;
+let constanttypefile () = Helm_registry.get "gtoplevel.constant_type_file";;
 
 let mml_of_cic_sequent metasenv sequent =
  let sequent_gdome,ids_to_terms,ids_to_father_ids,ids_to_hypotheses =
@@ -158,13 +158,13 @@ let
    match bodyxml with
       None -> Xml2Gdome.document_of_xml Misc.domImpl xml
     | Some bodyxml' ->
-       Xml.pp xml (Some constanttypefile) ;
+       Xml.pp xml (Some (constanttypefile ())) ;
        Xml2Gdome.document_of_xml Misc.domImpl bodyxml'
   in
 (*CSC: We save the innertypes to disk so that we can retrieve them in the  *)
 (*CSC: stylesheet. This DOES NOT work when UWOBO and/or the getter are not *)
 (*CSC: local.                                                              *)
-   Xml.pp xmlinnertypes (Some innertypesfile) ;
+   Xml.pp xmlinnertypes (Some (innertypesfile ())) ;
    let output = apply_proof_stylesheets input ~explode_all in
     output
 ;;