Porting of applyStylesheets.ml to Helm_registry.

[helm.git] / helm / ocaml / cic_transformations / applyStylesheets.ml

diff --git a/helm/ocaml/cic_transformations/applyStylesheets.ml b/helm/ocaml/cic_transformations/applyStylesheets.ml
index fc0a2989ca766f9927006668092fc6645c597f2b..c72415bcfd2a71bca45ba79a8072a7d5f5db5c7a 100644 (file)
--- a/helm/ocaml/cic_transformations/applyStylesheets.ml
+++ b/helm/ocaml/cic_transformations/applyStylesheets.ml
@@ -130,19 +130,8 @@ let apply_sequent_stylesheets sequent_doc =
 
 (*CSC: the getter should handle the innertypes, not the FS *)
 
-let innertypesfile =
- try
-  Sys.getenv "GTOPLEVEL_INNERTYPESFILE"
- with
-  Not_found -> "/public/innertypes"
-;;
-
-let constanttypefile =
- try
-  Sys.getenv "GTOPLEVEL_CONSTANTTYPEFILE"
- with
-  Not_found -> "/public/constanttype"
-;;
+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 =