Interface of the argument to Continuationals.Make greately simplified. The

[helm.git] / components / grafite_parser / test_parser.ml

diff --git a/components/grafite_parser/test_parser.ml b/components/grafite_parser/test_parser.ml
index 2deef1bd53a24fc78bef7b0e5eb7ccf6bcd22b37..7e316879bc3415b56d5d74a056ad231ec48f877d 100644 (file)
--- a/components/grafite_parser/test_parser.ml
+++ b/components/grafite_parser/test_parser.ml
@@ -118,7 +118,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 -> ()