diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-09-05 21:08:22 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-09-05 21:08:22 +0000 |
| commit | cf5ca123b6cd64a5acd1f0524b18d3790f5fd30c (patch) | |
| tree | fe07c5ee59b6a937fc99548717d7da3d609d0d33 | |
| parent | 0f325db9852325d558a0a8ca49cf8da52b1774e1 (diff) | |
Bug affichage tactiques supplementaires en v8
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4310 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/pptactic.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/parsing/pptactic.ml b/parsing/pptactic.ml index 817109a97..fbbde2303 100644 --- a/parsing/pptactic.ml +++ b/parsing/pptactic.ml @@ -362,7 +362,10 @@ let rec pr_tacarg_using_rule pr_gen = function | _ -> failwith "Inconsistent arguments of extended tactic" let pr_extend_gen proj prgen s l = - let tab = if Options.do_translate() then prtac_tab else prtac_tab_v7 in + let tab = + if Options.do_translate() or not !Options.v7 then prtac_tab + else prtac_tab_v7 + in try let (s,pl) = proj (Hashtbl.find tab s) l in str s ++ pr_tacarg_using_rule prgen (pl,l) |