From 5ce8c290c718dca7fd18d376b42108f8b947637b Mon Sep 17 00:00:00 2001 From: Ferruccio Guidi Date: Fri, 21 Sep 2007 14:51:06 +0000 Subject: [PATCH] now the -bench and -system flags work for matitamake --- matita/matitamakeLib.ml | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/matita/matitamakeLib.ml b/matita/matitamakeLib.ml index c2fff07a4..ccfdd9bab 100644 --- a/matita/matitamakeLib.ml +++ b/matita/matitamakeLib.ml @@ -209,8 +209,13 @@ let call_make ?matita_flags development target make = | None -> (try Sys.getenv "MATITA_FLAGS" with Not_found -> "") | Some s -> s in - already_defined ^ - if Helm_registry.get_bool "matita.bench" then "-bench" else "" + let bench = + if Helm_registry.get_bool "matita.bench" then " -bench" else "" + in + let system = + if Helm_registry.get_bool "matita.system" then " -system" else "" + in + already_defined ^ bench ^ system in let csc = try ["SRC=" ^ Sys.getenv "SRC"] with Not_found -> [] in rebuild_makefile development; @@ -218,7 +223,7 @@ let call_make ?matita_flags development target make = let flags = [] in let flags = try - flags @ [ sprintf "MATITA_FLAGS=\"%s\"" matita_flags ] + flags @ [ sprintf "MATITA_FLAGS=%s" matita_flags ] with Not_found -> flags in let flags = flags @ csc in let args = -- 2.39.2