diff options
author | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-06-20 21:55:16 +0200 |
---|---|---|
committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-06-20 22:19:50 +0200 |
commit | 64f0a3f014e423e4f7aa4fc1dc47cb70bc0e81fa (patch) | |
tree | a9fae4cc1c17d888ed14c8a6072f4eda93123133 /stm/stm.ml | |
parent | d30ed5fe0694466f70eed51bc689cd0fa8c00da5 (diff) |
[stm] Fix route setting on VtQuery
This is a fix for a mistake in
d8874dd855d748aaaf504890487ab15ffd7a677d , where we forgot to
propagate the route parameter.
Diffstat (limited to 'stm/stm.ml')
-rw-r--r-- | stm/stm.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index 071d2edf9..a7ed84350 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -2523,11 +2523,12 @@ let process_transaction ?(newtip=Stateid.fresh ()) | VtQuery (false, route), VtNow -> begin let query_sid = VCS.cur_tip () in - try stm_vernac_interp (VCS.cur_tip ()) x + try stm_vernac_interp ~route (VCS.cur_tip ()) x with e -> let e = CErrors.push e in Exninfo.iraise (State.exn_on ~valid:Stateid.dummy query_sid e) end; `Ok + (* Part of the script commands don't set the query route *) | VtQuery (true, _route), w -> let id = VCS.new_node ~id:newtip () in let queue = |