aboutsummaryrefslogtreecommitdiffhomepage
path: root/printing/ppvernac.ml
diff options
context:
space:
mode:
authorGravatar Matthieu Sozeau <mattam@mattam.org>2014-06-11 16:55:29 +0200
committerGravatar Matthieu Sozeau <mattam@mattam.org>2014-06-11 16:55:29 +0200
commit99cdbc25a3a92545544a087ed55240c488b42fc9 (patch)
tree4b9f80d7ae15a421b5745dec138759a37cf68da6 /printing/ppvernac.ml
parent1c620d266885086e076011917d5b1d28af299ea1 (diff)
Fix bug #3289
Diffstat (limited to 'printing/ppvernac.ml')
-rw-r--r--printing/ppvernac.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml
index 16759a3d8..5cad4806d 100644
--- a/printing/ppvernac.ml
+++ b/printing/ppvernac.ml
@@ -728,7 +728,7 @@ let rec pr_vernac = function
str":" ++ spc () ++
pr_constr cl ++ pr_priority pri ++
(match props with
- | Some p -> spc () ++ str":=" ++ spc () ++ pr_constr p
+ | Some (_,p) -> spc () ++ str":=" ++ spc () ++ pr_constr p
| None -> mt()))
| VernacContext l ->