diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-12-15 09:43:27 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-12-15 09:43:27 +0000 |
| commit | c881bc37b91a201f7555ee021ccb74adb360d131 (patch) | |
| tree | b3af5bc4b161c1bfbb88178e5d03c507fd2769fe /interp/constrextern.ml | |
| parent | 249c9d2f27e026822df3a4b07dd8392d4b586219 (diff) | |
'Eval' protege dans Ppconstrnew; eval n'a pas le meme besoin
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5098 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/constrextern.ml')
| -rw-r--r-- | interp/constrextern.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/interp/constrextern.ml b/interp/constrextern.ml index c3bcc1617..337c888a4 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -139,12 +139,15 @@ let rec translate_ident_string = function (str ("Warning: '"^ s^"' is now a keyword; it has been translated to '"^s'^"'")); s' +(* Le conflit est en fait surtout avec Eval dans Definition et c'est gere dans + Ppconstrnew | "eval" as s -> let s' = s^"_" in msgerrnl (str ("Warning: '"^ s^"' is a conflicting ident; it has been translated to '"^s'^"'")); s' +*) (* avoid _ *) | "_" -> |