added use_coercions flag (imperative :-(, non re-entrant :-(((( )

[helm.git] / helm / ocaml / cic_unification / coercDb.mli

diff --git a/helm/ocaml/cic_unification/coercDb.mli b/helm/ocaml/cic_unification/coercDb.mli
index 1d56132eab2c1a7ce904b73c941508dce5ca29ea..ba563ddd6d203de0215acfe70e6ff665e90ffce0 100644 (file)
--- a/helm/ocaml/cic_unification/coercDb.mli
+++ b/helm/ocaml/cic_unification/coercDb.mli
@@ -22,8 +22,12 @@
  * For details, see the HELM World-Wide-Web page,
  * http://cs.unibo.it/helm/.
  *)
+
+  (** XXX WARNING: non-reentrant *)
+
+val use_coercions: bool ref (** initial status is true *)
  
- val to_list:
+val to_list:
   unit -> 
     (UriManager.uri * UriManager.uri * UriManager.uri) list