release snapshot

[helm.git] / helm / matita / matitamakeLib.ml

diff --git a/helm/matita/matitamakeLib.ml b/helm/matita/matitamakeLib.ml
index 8eba26fb02cbb8556187d89844c49f4a53a59022..fba66e0d62e283bb620f3ce603789ebeeb66f383 100644 (file)
--- 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)