Erik de Castro Lopo wrote:

>     |    Parser.TOK_EOF ->
>             (   match ls.stack with
>                 |    [] -> Parser.TOK_EOF
>                 |    (fn, ch, lb) :: tail ->
>                         ls.filename <- fn ;
>                         ls.chan <- ch ;
>                         ls.stack <- tail ;
>                         get_token ls dummy_lexbuf
>                 )

Ooops, in the above section, there is a missing

	ls.lexbuf <- lb ;

just before the recursive call to get_token.

Erik
-- 
-----------------------------------------------------------------
Erik de Castro Lopo
-----------------------------------------------------------------
"I'm too fucking busy, or vice versa" -- Dorothy Parker