X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2FmatitamakeLib.ml;h=fba66e0d62e283bb620f3ce603789ebeeb66f383;hb=f28480139ee72d092a9405619c3bdf6d4ff155ee;hp=8eba26fb02cbb8556187d89844c49f4a53a59022;hpb=aa0d60227b785da3355b31519ba11cb4fbd2c925;p=helm.git

diff --git a/helm/matita/matitamakeLib.ml b/helm/matita/matitamakeLib.ml
index 8eba26fb0..fba66e0d6 100644
--- a/helm/matita/matitamakeLib.ml
+++ b/helm/matita/matitamakeLib.ml
@@ -25,6 +25,8 @@
 
 (* $Id$ *)
 
+open Printf
+
 let logger = fun mark -> 
   match mark with 
   | `Error -> HLog.error
@@ -176,7 +178,12 @@ let call_make development target make =
   let nodb =
     Helm_registry.get_opt_default Helm_registry.bool ~default:false "db.nodb"
   in
-  let flags = if nodb then ["NODB=true"] else [] in
+  let flags = [] in
+  let flags = flags @ if nodb then ["NODB=true"] else [] in
+  let flags =
+    try
+      flags @ [ sprintf "MATITA_FLAGS=\"%s\"" (Sys.getenv "MATITA_FLAGS") ]
+    with Not_found -> flags in
   make development.root 
     (["--no-print-directory"; "-s"; "-k"; "-f"; makefile; target]
     @ flags)