From 1b0006c375f7a2eb6502d10d90e491c395604d34 Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Thu, 18 Mar 2004 18:29:39 +0000
Subject: 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
---
 translate/ppvernacnew.ml | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'translate/ppvernacnew.ml')

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,_) =
-- 
cgit v1.2.3