From 049422be4e1c65addc9ed30c600fd77fbf49edd9 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 22 Sep 2003 14:03:03 +0000
Subject: Distfix aussi adopte le nouveau schema de V8only

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4442 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/g_basevernac.ml4 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/parsing/g_basevernac.ml4 b/parsing/g_basevernac.ml4
index b3988f1e02..6cb745d460 100644
--- a/parsing/g_basevernac.ml4
+++ b/parsing/g_basevernac.ml4
@@ -307,7 +307,8 @@ GEXTEND Gram
      | IDENT "Distfix"; local = locality; a = entry_prec; n = natural; 
 	   s = STRING; p = global; sc = OPT [ ":"; sc = IDENT -> sc ] ->
              let (a,s,c) = Metasyntax.translate_distfix a s p in
-             VernacNotation (local,c,Some(s,[SetLevel n;SetAssoc a]),None,sc)
+	     let mv = Some(s,[SetLevel n;SetAssoc a]) in
+             VernacNotation (local,c,mv,mv,sc)
 (*
 	     VernacDistfix (local,a,n,s,p,sc)
 *)
-- 
cgit v1.2.3