From 2e1ae2cab5a4c103ecafe7ab71b77a7ee7589760 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin <Hugo.Herbelin@inria.fr>
Date: Sun, 13 Aug 2017 23:56:53 +0200
Subject: Don't exclude a priori CLocalDef to be treated by ppconstr.ml.

---
 printing/ppconstr.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'printing/ppconstr.ml')

diff --git a/printing/ppconstr.ml b/printing/ppconstr.ml
index 4a103cdd2..37204c213 100644
--- a/printing/ppconstr.ml
+++ b/printing/ppconstr.ml
@@ -380,9 +380,9 @@ let tag_var = tag Tag.variable
     match bl with
       | [CLocalAssum (nal,k,t)] ->
         kw n ++ pr_binder false pr_c (nal,k,t)
-      | (CLocalAssum _ | CLocalPattern _) :: _ as bdl ->
+      | (CLocalAssum _ | CLocalPattern _ | CLocalDef _) :: _ as bdl ->
         kw n ++ pr_undelimited_binders sep pr_c bdl
-      | _ -> assert false
+      | [] -> assert false
 
   let pr_binders_gen pr_c sep is_open =
     if is_open then pr_delimited_binders pr_com_at sep pr_c
-- 
cgit v1.2.3