diff options
Diffstat (limited to 'printing/pptactic.ml')
| -rw-r--r-- | printing/pptactic.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index f0d713be4..c5a8a380d 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -895,6 +895,10 @@ let rec pr_tac inherited tac = (* arnaud: vérifier qu'il s'agit bien de la syntaxe définitive. *) hov 1 (str "once" ++ spc () ++ pr_tac (ltactical,E) t), ltactical + | TacExactlyOnce t -> + (* arnaud: vérifier qu'il s'agit bien de la syntaxe définitive. *) + hov 1 (str "exactly_once" ++ spc () ++ pr_tac (ltactical,E) t), + ltactical | TacOrelse (t1,t2) -> hov 1 (pr_tac (lorelse,L) t1 ++ str " ||" ++ brk (1,1) ++ pr_tac (lorelse,E) t2), |