diff options
| -rw-r--r-- | gramlib/gramext.ml | 2 | ||||
| -rw-r--r-- | gramlib/gramext.mli | 2 | ||||
| -rw-r--r-- | gramlib/plexing.ml | 4 | ||||
| -rw-r--r-- | gramlib/plexing.mli | 4 |
4 files changed, 6 insertions, 6 deletions
diff --git a/gramlib/gramext.ml b/gramlib/gramext.ml index c35c4bd18e..24dc9b865d 100644 --- a/gramlib/gramext.ml +++ b/gramlib/gramext.ml @@ -8,7 +8,7 @@ type 'a parser_t = 'a Stream.t -> Obj.t type 'te grammar = { gtokens : (Plexing.pattern, int ref) Hashtbl.t; - mutable glexer : 'te Plexing.lexer } + glexer : 'te Plexing.lexer } type 'te g_entry = { egram : 'te grammar; diff --git a/gramlib/gramext.mli b/gramlib/gramext.mli index ecb95ec61b..7fad01c6a4 100644 --- a/gramlib/gramext.mli +++ b/gramlib/gramext.mli @@ -6,7 +6,7 @@ type 'a parser_t = 'a Stream.t -> Obj.t type 'te grammar = { gtokens : (Plexing.pattern, int ref) Hashtbl.t; - mutable glexer : 'te Plexing.lexer } + glexer : 'te Plexing.lexer } type 'te g_entry = { egram : 'te grammar; diff --git a/gramlib/plexing.ml b/gramlib/plexing.ml index 7b8618fd20..3b158ebcc4 100644 --- a/gramlib/plexing.ml +++ b/gramlib/plexing.ml @@ -13,6 +13,6 @@ 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 } 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 |