X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fbinaries%2Ftranscript%2Fv8Parser.mly;h=721cdd14109f1b3dcd21dfa7f98c07f0e15bc819;hb=04e07924ddd8d0a95e01103103bd8c2a3e79c6c5;hp=52456c5594d761957d7d3576683952dd975b3ddb;hpb=29714797b01e0ac8c22e4df2827b1785a759f482;p=helm.git

diff --git a/helm/software/components/binaries/transcript/v8Parser.mly b/helm/software/components/binaries/transcript/v8Parser.mly
index 52456c559..721cdd141 100644
--- a/helm/software/components/binaries/transcript/v8Parser.mly
+++ b/helm/software/components/binaries/transcript/v8Parser.mly
@@ -25,8 +25,9 @@
 
 %{
    module T = Types
-   
-   let out t s = prerr_endline ("-- " ^ t ^ " " ^ s)
+   module O = Options
+
+   let out t s = if !O.verbose_parser then prerr_endline ("-- " ^ t ^ " " ^ s)
 
    let trim = HExtlib.trim_blanks
 
@@ -58,6 +59,7 @@
         | "Theorem"    -> Some `Theorem
         | "Definition" -> Some `Definition
         | "Fixpoint"   -> Some `Definition
+        | "CoFixpoint" -> Some `Definition
         | "Let"        -> Some `Definition
 	| "Scheme"     -> Some `Theorem
         | _            -> assert false