diff options
Diffstat (limited to 'printing/ppvernac.ml')
| -rw-r--r-- | printing/ppvernac.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml index 51fc289b46..9a8ad00d08 100644 --- a/printing/ppvernac.ml +++ b/printing/ppvernac.ml @@ -695,7 +695,8 @@ module Make | VernacDefinition (d,id,b) -> (* A verifier... *) let pr_def_token (l,dk) = let l = match l with Some x -> x | None -> Decl_kinds.Global in - keyword (Kindops.string_of_definition_kind (l,false,dk)) + keyword (Kindops.string_of_definition_kind + { locality = l; polymorphic = false; object_kind = dk }) in let pr_reduce = function | None -> mt() |