diff options
Diffstat (limited to 'lib/lexer.ml')
| -rw-r--r-- | lib/lexer.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/lexer.ml b/lib/lexer.ml index a91bfdb..7014d85 100644 --- a/lib/lexer.ml +++ b/lib/lexer.ml @@ -59,6 +59,9 @@ let incr_level lexbuf = let wait_balance : (Buffer.t -> Lexbuf.t -> 'a) -> Lexbuf.t -> 'a = fun rule lexbuf -> + let _, position = Lexbuf.positions lexbuf in + Lexbuf.set_start_position lexbuf position; + try[@warning "-52"] let token = rule (Buffer.create 256) lexbuf in token |