diff options
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/vernacentries.ml | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 1d05f4e622..5e829a2d90 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -1965,11 +1965,7 @@ let interp ?(verbosely=true) ?proof (loc,c) = current_timeout := Some n; aux ?locality ?polymorphism isprogcmd v | VernacTime v -> - let tstart = System.get_time() in - aux_list ?locality ?polymorphism isprogcmd v; - let tend = System.get_time() in - let msg = if !Flags.time then "" else "Finished transaction in " in - msg_info (str msg ++ System.fmt_time_difference tstart tend) + System.with_time !Flags.time (aux ?locality ?polymorphism isprogcmd) v; | VernacLoad (_,fname) -> vernac_load (aux false) fname | c -> check_vernac_supports_locality c locality; |