From 74f8e4b04f59c79fc2320b63f7d8c0cb4de69e2b Mon Sep 17 00:00:00 2001
From: Lasse Blaauwbroek
Date: Thu, 20 Sep 2018 21:05:19 +0200
Subject: Check that lambda/prod ast's have proper binders during
 interning/printing.

---
 printing/ppconstr.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'printing')

diff --git a/printing/ppconstr.ml b/printing/ppconstr.ml
index e7f995c84e..6d53349fa1 100644
--- a/printing/ppconstr.ml
+++ b/printing/ppconstr.ml
@@ -394,7 +394,7 @@ let tag_var = tag Tag.variable
         kw n ++ pr_binder false pr_c (nal,k,t)
       | (CLocalAssum _ | CLocalPattern _ | CLocalDef _) :: _ as bdl ->
         kw n ++ pr_undelimited_binders sep pr_c bdl
-      | [] -> assert false
+      | [] -> anomaly (Pp.str "The ast is malformed, found lambda/prod without proper binders.")
 
   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