diff options
Diffstat (limited to 'parsing/pptactic.ml')
| -rw-r--r-- | parsing/pptactic.ml | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/parsing/pptactic.ml b/parsing/pptactic.ml index c2ef0f288..41f7ba954 100644 --- a/parsing/pptactic.ml +++ b/parsing/pptactic.ml @@ -404,6 +404,13 @@ let pr_extend_gen prgen s l = in try let tags = List.map genarg_tag l in + (* Hack pour les syntaxes changeant non uniformément en passant a la V8 *) + let s = + print_string s; flush stdout; + let n = String.length s in + if Options.do_translate() & n > 2 & String.sub s (n-2) 2 = "v7" + then String.sub s 0 (n-2) ^ "v8" + else s in let (s,pl) = Hashtbl.find tab (s,tags) in str s ++ pr_tacarg_using_rule prgen (pl,l) with Not_found -> |