Commit 92a2dae0 authored by POTTIER Francois's avatar POTTIER Francois

Rename the internal function [wrap] to [lexer_lexbuf_to_reader].

parent ab66094d
......@@ -451,7 +451,10 @@ module Make (T : TABLE) = struct
type reader =
unit -> token * Lexing.position * Lexing.position
let wrap (lexer : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) : reader =
let lexer_lexbuf_to_reader
(lexer : Lexing.lexbuf -> token)
(lexbuf : Lexing.lexbuf)
: reader =
fun () ->
let token = lexer lexbuf in
let startp = lexbuf.Lexing.lex_start_p
......@@ -497,7 +500,7 @@ module Make (T : TABLE) = struct
raise Error
let entry (s : state) lexer lexbuf : semantic_value =
loop (wrap lexer lexbuf) (start s)
loop (lexer_lexbuf_to_reader lexer lexbuf) (start s)
(* --------------------------------------------------------------------------- *)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment