1 files changed, 9 insertions, 0 deletions
diff --git a/byterun/parsing.c b/byterun/parsing.c
index 2d90fa552..23228bf7b 100644
--- a/byterun/parsing.c
+++ b/byterun/parsing.c
@@ -291,3 +291,12 @@ CAMLprim value caml_parse_engine(struct parser_tables *tables,
   }
   
 }
+
+/* Control printing of debugging info */
+
+CAMLprim value caml_set_parser_trace(value flag)
+{
+  value oldflag = Val_bool(caml_parser_trace);
+  caml_parser_trace = Bool_val(flag);
+  return oldflag;
+}