diff options
| author | herbelin | 2003-09-22 14:03:03 +0000 |
|---|---|---|
| committer | herbelin | 2003-09-22 14:03:03 +0000 |
| commit | 049422be4e1c65addc9ed30c600fd77fbf49edd9 (patch) | |
| tree | 2c0eb0de0e343efb81807cbe2c40274c36289e5f | |
| parent | 7401c9e20534498277affec403e638cb112cea26 (diff) | |
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
| -rw-r--r-- | parsing/g_basevernac.ml4 | 3 |
1 files changed, 2 insertions, 1 deletions
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) *) |