X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite_parser%2Ftest_parser.ml;h=76c402c196c757327525aa96e10b552230f10711;hb=e085135177f7b3b74b410d47a4f3bca1784b60b1;hp=2deef1bd53a24fc78bef7b0e5eb7ccf6bcd22b37;hpb=55b82bd235d82ff7f0a40d980effe1efde1f5073;p=helm.git

diff --git a/helm/software/components/grafite_parser/test_parser.ml b/helm/software/components/grafite_parser/test_parser.ml
index 2deef1bd5..76c402c19 100644
--- a/helm/software/components/grafite_parser/test_parser.ml
+++ b/helm/software/components/grafite_parser/test_parser.ml
@@ -101,6 +101,8 @@ let process_stream istream =
                   prerr_endline
                    ("Unsupported statement: " ^
                      GrafiteAstPp.pp_statement
+                      ~map_unicode_to_tex:(Helm_registry.get_bool
+                        "matita.paste_unicode_as_tex")
                       ~term_pp:CicNotationPp.pp_term
                       ~lazy_term_pp:(fun _ -> "_lazy_term_here_")
                       ~obj_pp:(fun _ -> "_obj_here_")
@@ -118,7 +120,7 @@ let process_stream istream =
               (!char_count + x) (!char_count + y) msg)
         | exn ->
             prerr_endline
-              (sprintf "Uncaught exception: %s" (Printexc.to_string exn))
+              (sprintf "TestParser: Uncaught exception: %s" (Printexc.to_string exn))
 	done
     with End_of_file -> ()