diff options
Diffstat (limited to 'toplevel/vernac.ml')
-rw-r--r-- | toplevel/vernac.ml | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/toplevel/vernac.ml b/toplevel/vernac.ml index 5e9d77bed..248a6b513 100644 --- a/toplevel/vernac.ml +++ b/toplevel/vernac.ml @@ -291,10 +291,6 @@ let checknav loc ast = let eval_expr loc_ast = vernac_com true checknav loc_ast -(* XML output hooks *) -let (f_xml_start_library, xml_start_library) = Hook.make ~default:ignore () -let (f_xml_end_library, xml_end_library) = Hook.make ~default:ignore () - (* Load a vernac file. Errors are annotated with file and location *) let load_vernac verb file = chan_beautify := @@ -320,7 +316,6 @@ let compile verbosely f = Aux_file.start_aux_file_for long_f_dot_v; Dumpglob.start_dump_glob long_f_dot_v; Dumpglob.dump_string ("F" ^ Names.DirPath.to_string ldir ^ "\n"); - if !Flags.xml_export then Hook.get f_xml_start_library (); let wall_clock1 = Unix.gettimeofday () in let _ = load_vernac verbosely long_f_dot_v in Stm.join (); @@ -330,7 +325,6 @@ let compile verbosely f = Aux_file.record_in_aux_at Loc.ghost "vo_compile_time" (Printf.sprintf "%.3f" (wall_clock2 -. wall_clock1)); Aux_file.stop_aux_file (); - if !Flags.xml_export then Hook.get f_xml_end_library (); Dumpglob.end_dump_glob () | BuildVi -> let ldir, long_f_dot_v = Flags.verbosely Library.start_library f in |