X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fhelena%2Fsrc%2Fcommon%2Foutput.ml;fp=helm%2Fsoftware%2Fhelena%2Fsrc%2Fcommon%2Foutput.ml;h=94bf217daec407fd56619e2b11d0dc834fde7626;hb=67686e04702688cc822e809e5168f765bf69d7cb;hp=d84012c2f1d706876fbcf8c8e1a6e63be3f0eb6d;hpb=1be981691870cca039b1af1fb954491c2020d483;p=helm.git

diff --git a/helm/software/helena/src/common/output.ml b/helm/software/helena/src/common/output.ml
index d84012c2f..94bf217da 100644
--- a/helm/software/helena/src/common/output.ml
+++ b/helm/software/helena/src/common/output.ml
@@ -43,11 +43,13 @@ let add
    ?(beta=0) ?(theta=0) ?(epsilon=0) ?(ldelta=0) ?(gdelta=0) ?(zeta=0) 
    ?(upsilon=0) ?(lrt=0) ?(grt=0) ?(e=0) ?(x=0) ()
 =
- if beta > 0 then L.warn level (KP.sprintf "BETA %u" beta);
- if ldelta > 0 then L.warn level (KP.sprintf "EXP %u" ldelta);
- if gdelta > 0 then L.warn level (KP.sprintf "EXP %u" gdelta);
- if lrt > 0 then L.warn level (KP.sprintf "EXP %u" lrt);
- if grt > 0 then L.warn level (KP.sprintf "EXP %u" grt); 
+   if !G.ct >= level then begin
+      if beta > 0 then L.warn level (KP.sprintf "BETA %u" beta);
+      if ldelta > 0 then L.warn level (KP.sprintf "EXP %u" ldelta);
+      if gdelta > 0 then L.warn level (KP.sprintf "EXP %u" gdelta);
+      if lrt > 0 then L.warn level (KP.sprintf "EXP %u" lrt);
+      if grt > 0 then L.warn level (KP.sprintf "EXP %u" grt); 
+   end;
 reductions := {
    beta = !reductions.beta + beta;
    zeta = !reductions.zeta + zeta;