diff --git a/src/coq_elpi_vernacular.ml b/src/coq_elpi_vernacular.ml index 7586de3a5..3847e79bd 100644 --- a/src/coq_elpi_vernacular.ml +++ b/src/coq_elpi_vernacular.ml @@ -567,10 +567,7 @@ module Interp = struct match syndata with | None -> [], fun ~target:_ ~depth -> Stdlib.Result.Ok ET.mkDiscard | Some (relocate_term,log) -> log, relocate_term in - let initial_synterp_state = - match synterplog with - | [] -> Vernacstate.Synterp.freeze () - | x :: _ -> Coq_elpi_builtins_synterp.SynterpAction.synterp_state_after x in + let initial_synterp_state = Vernacstate.Synterp.freeze () in let query ~depth state = let state, args, gls = EU.map_acc (Coq_elpi_arg_HOAS.in_elpi_cmd ~depth ~raw:raw_args Coq_elpi_HOAS.(mk_coq_context ~options:(default_options ()) state)) diff --git a/tests/test_synterp.v b/tests/test_synterp.v index bd957a3f5..3e16290ae 100644 --- a/tests/test_synterp.v +++ b/tests/test_synterp.v @@ -166,7 +166,7 @@ Elpi Accumulate lp:{{ main _ :- D = (record "foo" {{ Type }} "mkfoo" (field [] "f" {{ Type }} _\end-record)), coq.typecheck-indt-decl D ok, - coq.env.add-indt D I. + coq.env.add-indt D I, coq.env.begin-module "x" none, coq.env.end-module _. }}. #[synterp] Elpi Accumulate lp:{{ main _ :- coq.env.begin-module "x" none, coq.env.end-module _.