From 7f4da9fbbe568ea921845f145c21d036c08c328e Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Sat, 24 Nov 2018 16:56:03 +0100
Subject: Make some camlp5 fields immutable.

---
 gramlib/plexing.mli | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'gramlib/plexing.mli')

diff --git a/gramlib/plexing.mli b/gramlib/plexing.mli
index 63c89dac28..e09188763c 100644
--- a/gramlib/plexing.mli
+++ b/gramlib/plexing.mli
@@ -28,9 +28,9 @@ type 'te lexer =
   { tok_func : 'te lexer_func;
     tok_using : pattern -> unit;
     tok_removing : pattern -> unit;
-    mutable tok_match : pattern -> 'te -> string;
+    tok_match : pattern -> 'te -> string;
     tok_text : pattern -> string;
-    mutable tok_comm : Loc.t list option }
+    tok_comm : Loc.t list option }
 and 'te lexer_func = char Stream.t -> 'te Stream.t * location_function
 and location_function = int -> Loc.t
   (** The type of a function giving the location of a token in the
-- 
cgit v1.2.3


From d85a200cb8fca964bb7428ca6a607cfc9dc83c79 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Sat, 24 Nov 2018 17:34:04 +0100
Subject: Removing dead fields from Plexing.lexer.

---
 gramlib/plexing.mli | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'gramlib/plexing.mli')

diff --git a/gramlib/plexing.mli b/gramlib/plexing.mli
index e09188763c..eed4082e00 100644
--- a/gramlib/plexing.mli
+++ b/gramlib/plexing.mli
@@ -30,7 +30,7 @@ type 'te lexer =
     tok_removing : pattern -> unit;
     tok_match : pattern -> 'te -> string;
     tok_text : pattern -> string;
-    tok_comm : Loc.t list option }
+  }
 and 'te lexer_func = char Stream.t -> 'te Stream.t * location_function
 and location_function = int -> Loc.t
   (** The type of a function giving the location of a token in the
-- 
cgit v1.2.3