From 83b2b197eb33b78f2e3054819f1a36f971c24426 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Wed, 16 Dec 2015 23:23:56 +0100
Subject: Fixing non exhaustive pattern-matching in 003fe3d5e60b.

---
 grammar/q_util.ml4 | 1 +
 parsing/compat.ml4 | 1 +
 2 files changed, 2 insertions(+)

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
-- 
cgit v1.2.3