diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-07-03 12:43:28 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-07-07 21:30:18 +0200 |
commit | abad0a15ac44cb5b53b87382bb4d587d9800a0f6 (patch) | |
tree | accb7680bdff39d8e9233f30c0fe8990eddac2a6 /printing | |
parent | 8e767acc26cb2335f1a8dac3c4c184e2cc0b64c4 (diff) |
time tac
Diffstat (limited to 'printing')
-rw-r--r-- | printing/pptactic.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index f6c25d069..9df9446c3 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -865,6 +865,9 @@ let rec pr_tac inherited tac = hov 1 (str "timeout " ++ pr_or_var int n ++ spc () ++ pr_tac (ltactical,E) t), ltactical + | TacTime t -> + hov 1 (str "time " ++ pr_tac (ltactical,E) t), + ltactical | TacRepeat t -> hov 1 (str "repeat" ++ spc () ++ pr_tac (ltactical,E) t), ltactical |