aboutsummaryrefslogtreecommitdiff
path: root/printing
diff options
context:
space:
mode:
authorMaxime Dénès2016-09-22 16:57:38 +0200
committerMaxime Dénès2016-09-22 16:57:38 +0200
commit3c47248abc27aa9c64120db30dcb0d7bf945bc70 (patch)
tree0dd3a804e1924862390a7f78abc9a8a119127f9c /printing
parentceb68d1d643ac65f500e0201f61e73cf22e6e2fb (diff)
parent1bc1cba7a759a285131a3ed6ea8979716700b856 (diff)
Merge remote-tracking branch 'github/pr/283' into trunk
Was PR#283: Stylistic improvements in intf/decl_kinds.mli.
Diffstat (limited to 'printing')
-rw-r--r--printing/ppvernac.ml3
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()