Skip to content

Commit

Permalink
Adapt to coq/coq#18139 (pr_tacref takes avoid set) (#3)
Browse files Browse the repository at this point in the history
  • Loading branch information
SkySkimmer authored Oct 30, 2023
2 parents 76559d6 + 3112da1 commit bc4c635
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/tac2compile.ml
Original file line number Diff line number Diff line change
Expand Up @@ -1009,7 +1009,7 @@ let rec get_dependencies ((visited, skipped_mut, knl) as acc) kn =
let warn_skipped_mut = CWarnings.create ~name:"tac2compile-skipped-mutable" ~category:CWarnings.CoreCategories.ltac2
(fun skipped_mut ->
str "Skipped compilation of mutable definitions" ++ spc() ++
prlist_with_sep spc Tac2print.pr_tacref (KNset.elements skipped_mut))
prlist_with_sep spc (Tac2print.pr_tacref Id.Set.empty) (KNset.elements skipped_mut))

let get_recursive_kns knl =
let _, skipped_mut, knl = List.fold_left get_dependencies (KNset.empty, KNset.empty, []) knl in
Expand Down Expand Up @@ -1114,7 +1114,7 @@ let compile ~recursive knl =
(* Error if explicitly asked to compile a mutable, warn if recursively *)
if (Tac2env.interp_global kn).gdata_mutable then
CErrors.user_err
Pp.(str "Not allowed to compile mutable " ++ Tac2print.pr_tacref kn ++ str "."))
Pp.(str "Not allowed to compile mutable " ++ Tac2print.pr_tacref Id.Set.empty kn ++ str "."))
knl
in
let knl =
Expand Down

0 comments on commit bc4c635

Please sign in to comment.