diff options
| author | herbelin | 2003-06-11 20:10:49 +0000 |
|---|---|---|
| committer | herbelin | 2003-06-11 20:10:49 +0000 |
| commit | babb3093266cb797ff7a2811d3b475d91b1985a8 (patch) | |
| tree | f0e5af45e80885b4635273a05c34557ad3c1379d | |
| parent | da80f0fe61f78be8128db92cfeb93cb757bdf0a3 (diff) | |
Token '.(' seulement pour v8, sinon conflit avec '.(*'
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4137 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/g_constr.ml4 | 2 | ||||
| -rw-r--r-- | parsing/g_constrnew.ml4 | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/parsing/g_constr.ml4 b/parsing/g_constr.ml4 index be9e00c585..43dc060a5a 100644 --- a/parsing/g_constr.ml4 +++ b/parsing/g_constr.ml4 @@ -23,7 +23,7 @@ let constr_kw = ":"; "("; ")"; "["; "]"; "{"; "}"; ","; ";"; "->"; "="; ":="; "!"; "::"; "<:"; ":<"; "=>"; "<"; ">"; "|"; "?"; "/"; "<->"; "\\/"; "/\\"; "`"; "``"; "&"; "*"; "+"; "@"; "^"; "#"; "-"; - "~"; "'"; "<<"; ">>"; "<>"; ".(" + "~"; "'"; "<<"; ">>"; "<>" ] let _ = List.iter (fun s -> Lexer.add_token ("",s)) constr_kw (* "let" is not a keyword because #Core#let.cci would not parse. diff --git a/parsing/g_constrnew.ml4 b/parsing/g_constrnew.ml4 index 1876863d49..16691158fe 100644 --- a/parsing/g_constrnew.ml4 +++ b/parsing/g_constrnew.ml4 @@ -21,7 +21,7 @@ open Util let constr_kw = [ "fun"; "match"; "fix"; "cofix"; "with"; "in"; "for"; "end"; "as"; - "let"; "if"; "then"; "else"; "struct"; "Prop"; "Set"; "Type" ] + "let"; "if"; "then"; "else"; "struct"; "Prop"; "Set"; "Type"; ".(" ] let _ = List.iter (fun s -> Lexer.add_token("",s)) constr_kw let _ = Options.v7 := false |