X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fng_extraction%2FocamlExtractionTable.ml;h=a3722f80d839d2780fb7df2fa2f15d919385e24f;hb=8a5c30a914d7ff665218b31853c6fb4bcf58aa08;hp=576509a04d38b213a2daf1be89c7e46945523899;hpb=d7aca3eacb4bd8dc56223098f92e5370c82f92ff;p=helm.git

diff --git a/matita/components/ng_extraction/ocamlExtractionTable.ml b/matita/components/ng_extraction/ocamlExtractionTable.ml
index 576509a04..a3722f80d 100644
--- a/matita/components/ng_extraction/ocamlExtractionTable.ml
+++ b/matita/components/ng_extraction/ocamlExtractionTable.ml
@@ -228,7 +228,7 @@ class virtual status =
               db1,db2,dbi,dbgp,dbp,dbids,dbrefs,ch,dbmn1,dbmn2,dbo,curi,empty_info >}
   method set_ocaml_extraction_db v = {< ocaml_extraction_db = v >}
   method set_ocaml_extraction_status
-   : 'status. #g_status as 'status -> 'self
+   : 'status. (#g_status as 'status) -> 'self
    = fun o -> {< ocaml_extraction_db = o#ocaml_extraction_db >}
  end