diff options
| -rw-r--r-- | gramlib/plexing.ml | 2 | ||||
| -rw-r--r-- | gramlib/plexing.mli | 2 | ||||
| -rw-r--r-- | parsing/cLexer.ml | 1 |
3 files changed, 2 insertions, 3 deletions
diff --git a/gramlib/plexing.ml b/gramlib/plexing.ml index 3b158ebcc4..f99a3c2480 100644 --- a/gramlib/plexing.ml +++ b/gramlib/plexing.ml @@ -15,4 +15,4 @@ type 'te lexer = tok_removing : pattern -> unit; tok_match : pattern -> 'te -> string; tok_text : pattern -> string; - tok_comm : Loc.t list option } + } 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 diff --git a/parsing/cLexer.ml b/parsing/cLexer.ml index c327f8aa43..c2b7fa117d 100644 --- a/parsing/cLexer.ml +++ b/parsing/cLexer.ml @@ -763,7 +763,6 @@ let lexer = { | _ -> ()); Plexing.tok_removing = (fun _ -> ()); Plexing.tok_match = Tok.match_pattern; - Plexing.tok_comm = None; Plexing.tok_text = token_text } (** Terminal symbols interpretation *) |