X-Git-Url: https://git.xandkar.net/?p=tiger.ml.git;a=blobdiff_plain;f=compiler%2Fsrc%2Fexe%2Ftigerc.ml;h=5468ff7d841f00f451a25daa47ac37e5a587a9d3;hp=42fcf0077c18eb572db15601a9ca6cb3e1a19396;hb=ef79993b1016fbaa73b0993c88a16b23f8cb7408;hpb=24fb19c0350b45cf027a4be60b1a0240e8c8b576

diff --git a/compiler/src/exe/tigerc.ml b/compiler/src/exe/tigerc.ml
index 42fcf00..5468ff7 100644
--- a/compiler/src/exe/tigerc.ml
+++ b/compiler/src/exe/tigerc.ml
@@ -1,5 +1,5 @@
 let lexbuf_set_filename lb filename : unit =
-  let Lexing.({lex_start_p; lex_curr_p}) = lb in
+  let Lexing.({lex_start_p; lex_curr_p; _}) = lb in
   lb.Lexing.lex_start_p <- {lex_start_p with Lexing.pos_fname = filename};
   lb.Lexing.lex_curr_p  <- {lex_curr_p  with Lexing.pos_fname = filename}