From: Claudio Sacerdoti Coen Date: Wed, 18 Feb 2004 10:00:15 +0000 (+0000) Subject: Bug fixed: Helm_registry was used not enough lazily (i.e. before loading X-Git-Tag: v0_0_4~153 X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=cd8d555372d4980e21d859c7275b4e0ba9c796df;p=helm.git Bug fixed: Helm_registry was used not enough lazily (i.e. before loading the configuration). --- 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 ;;