aboutsummaryrefslogtreecommitdiff
path: root/vernac
diff options
context:
space:
mode:
authorEmilio Jesus Gallego Arias2019-03-29 19:42:41 +0100
committerEmilio Jesus Gallego Arias2019-03-29 19:42:41 +0100
commitae9cc11c9975cc7ced1800f6684e160bc17fb092 (patch)
tree68ce39acc517369d5e25fac9aa2d87f33fd3a4ed /vernac
parent23d6e0619fc7a1d466bebb831a988431828da88f (diff)
parent7eba2dfda86238cb0941edfd7aafb09f566c36d8 (diff)
Merge PR #9830: [parser] initialization based on Loc.t rather than Loc.source
Reviewed-by: ejgallego Ack-by: gares
Diffstat (limited to 'vernac')
-rw-r--r--vernac/vernacentries.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml
index 91965e56b1..d2ba882521 100644
--- a/vernac/vernacentries.ml
+++ b/vernac/vernacentries.ml
@@ -2175,7 +2175,7 @@ let vernac_load ~st interp fname =
let input =
let longfname = Loadpath.locate_file fname in
let in_chan = open_utf8_file_in longfname in
- Pcoq.Parsable.make ~file:(Loc.InFile longfname) (Stream.of_channel in_chan) in
+ Pcoq.Parsable.make ~loc:(Loc.initial (Loc.InFile longfname)) (Stream.of_channel in_chan) in
let rec load_loop ~pstate =
try
let proof_mode = Option.map (fun _ -> get_default_proof_mode ()) pstate in