X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2FmatitaInit.ml;h=2c2a818a27fa125be81cd7ccbc21730c55823150;hb=1aca50505c3ce6c76dd7d20d00e358707caffd4a;hp=7658e7ab885660e5edd93a29a98730bf7c03e510;hpb=b267e5e12f96cd421347af2e152d14c6325c060d;p=helm.git

diff --git a/matita/matita/matitaInit.ml b/matita/matita/matitaInit.ml
index 7658e7ab8..2c2a818a2 100644
--- a/matita/matita/matitaInit.ml
+++ b/matita/matita/matitaInit.ml
@@ -199,6 +199,9 @@ let parse_cmdline init_status =
           (Printf.sprintf ("<filename> Read configuration from filename"
              ^^ "\n    Default: %s")
             BuildTimeConf.matita_conf);
+        "-extract_ocaml", 
+          Arg.Unit (fun () -> Helm_registry.set_bool "extract_ocaml" true),
+          "Extract ocaml code";
         "-force",
             Arg.Unit (fun () -> Helm_registry.set_bool "matita.force" true),
             ("Force actions that would not be executed per default");