diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-03-18 18:29:39 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-03-18 18:29:39 +0000 |
| commit | 1b0006c375f7a2eb6502d10d90e491c395604d34 (patch) | |
| tree | ea290461a44e2cc97330083d94ed843af014d38a /translate/ppvernacnew.ml | |
| parent | 0c4c0de7e179fb560bd724e9706ec4428ed9ceb4 (diff) | |
Traduction ad hoc pour Hint Rewrite in using
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5533 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'translate/ppvernacnew.ml')
| -rw-r--r-- | translate/ppvernacnew.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/translate/ppvernacnew.ml b/translate/ppvernacnew.ml index 9c80e0afe..91095b37b 100644 --- a/translate/ppvernacnew.ml +++ b/translate/ppvernacnew.ml @@ -1063,6 +1063,10 @@ and pr_extend s cl = if Options.do_translate() & n > 2 & String.sub s (n-2) 2 = "V7" then String.sub s 0 (n-2) ^ "V8" else s in + (* "Hint Rewrite in using" changes the order of its args in v8 !! *) + let cl = match s, cl with + | "HintRewriteV8", [a;b;c;d] -> [a;b;d;c] + | _ -> cl in let rls = List.assoc s (Egrammar.get_extend_vernac_grammars()) in let (hd,rl) = match_vernac_rule (List.map Genarg.genarg_tag cl) rls in let (pp,_) = |