]> matita.cs.unibo.it Git - helm.git/commitdiff
do_heavy_checks not always true, take ths option from the registry instead
authorEnrico Tassi <enrico.tassi@inria.fr>
Tue, 4 Dec 2007 15:16:25 +0000 (15:16 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Tue, 4 Dec 2007 15:16:25 +0000 (15:16 +0000)
helm/software/matita/matitaScript.ml

index c29e15533ef1c6a71a10c06b04a46cec6f95481a..8ec2a4948bcc7c6bc19608d03f59a1089aa0468f 100644 (file)
@@ -85,7 +85,8 @@ let eval_with_engine guistuff lexicon_status grafite_status user_goal
   let text = skipped_txt ^ nonskipped_txt in
   let prefix_len = MatitaGtkMisc.utf8_string_length skipped_txt in
   let enriched_history_fragment =
-   MatitaEngine.eval_ast ~do_heavy_checks:true
+   MatitaEngine.eval_ast ~do_heavy_checks:(Helm_registry.get_bool
+     "matita.do_heavy_checks")
     lexicon_status grafite_status (text,prefix_len,st)
   in
   let enriched_history_fragment = List.rev enriched_history_fragment in