Fix location on lexbuf

E.g.:

let x y =
  match%sedlex lexbuf with _ -> assert false

produces this error:

File "_none_", line 1:
Error: Unbound value lexbuf

which is not very helpful.