diff options
| -rw-r--r-- | grammar/q_util.ml4 | 1 | ||||
| -rw-r--r-- | parsing/compat.ml4 | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/grammar/q_util.ml4 b/grammar/q_util.ml4 index 19f436f926..76113ad509 100644 --- a/grammar/q_util.ml4 +++ b/grammar/q_util.ml4 @@ -56,6 +56,7 @@ let mlexpr_of_token = function | Tok.IDENT s -> <:expr< Tok.IDENT $mlexpr_of_string s$ >> | Tok.FIELD s -> <:expr< Tok.FIELD $mlexpr_of_string s$ >> | Tok.INT s -> <:expr< Tok.INT $mlexpr_of_string s$ >> +| Tok.INDEX s -> <:expr< Tok.INDEX $mlexpr_of_string s$ >> | Tok.STRING s -> <:expr< Tok.STRING $mlexpr_of_string s$ >> | Tok.LEFTQMARK -> <:expr< Tok.LEFTQMARK >> | Tok.BULLET s -> <:expr< Tok.BULLET $mlexpr_of_string s$ >> diff --git a/parsing/compat.ml4 b/parsing/compat.ml4 index 4208fd364e..a214b58a60 100644 --- a/parsing/compat.ml4 +++ b/parsing/compat.ml4 @@ -266,6 +266,7 @@ IFDEF CAMLP5 THEN | Tok.PATTERNIDENT s -> "PATTERNIDENT", s | Tok.FIELD s -> "FIELD", s | Tok.INT s -> "INT", s + | Tok.INDEX s -> "INDEX", s | Tok.STRING s -> "STRING", s | Tok.LEFTQMARK -> "LEFTQMARK", "" | Tok.BULLET s -> "BULLET", s |