diff options
| author | herbelin | 2002-12-15 11:57:35 +0000 |
|---|---|---|
| committer | herbelin | 2002-12-15 11:57:35 +0000 |
| commit | f410308f7b300135d97b16ae3fbf776d8012bc61 (patch) | |
| tree | 716ccf94f3837cb0164ce08cb1f20932eebd974b | |
| parent | 2d578306fd998679ea1915f4e86fe70ee22d7a43 (diff) | |
Evaluation paresseuse de l'affichage du debug
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3435 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/correctness/ptactic.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/correctness/ptactic.ml b/contrib/correctness/ptactic.ml index c24baea805..dbaf419588 100644 --- a/contrib/correctness/ptactic.ml +++ b/contrib/correctness/ptactic.ml @@ -245,7 +245,7 @@ let correctness s p opttac = deb_mess (str"Pred.red_cci: Reduction..." ++ fnl ()); let oc = reduce_open_constr oc in deb_mess (str"AFTER REDUCTION:" ++ fnl ()); - deb_mess (Printer.prterm_env (Global.env()) (snd oc)); + deb_print (Printer.prterm_env (Global.env())) (snd oc); let tac = (tclTHEN (Extratactics.refine_tac oc) automatic) in let tac = match opttac with | None -> tac |