From a26b8afbe5b6b0b5bb034884f5271c6d845a67b4 Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Wed, 11 Jun 2014 15:41:40 +0200
Subject: - Fix bug #3368, due to wrong use of the Cst_stack for projections. -
 Monomorphize Cst_stack to 'a = constr. - Add corresponding debug printer.

---
 dev/include         | 2 ++
 dev/top_printers.ml | 1 +
 2 files changed, 3 insertions(+)

(limited to 'dev')

diff --git a/dev/include b/dev/include
index 4a025d077c..7c63f54436 100644
--- a/dev/include
+++ b/dev/include
@@ -53,6 +53,8 @@
 #install_printer  (* type_judgement *) pptype;;
 #install_printer  (* judgement *) ppj;;
 
+#install_printer  (* judgement *) pp_cst_stack_t;;
+
 (*#install_printer  (* hint_db *)  print_hint_db;;*)
 (*#install_printer  (* hints_path *)  pphintspath;;*)
 #install_printer  (* goal *)  ppgoal;;
diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index fb8509c503..fccf580a50 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -140,6 +140,7 @@ let pp_idpred s = pp (pr_idpred s)
 let pp_cpred s = pp (pr_cpred s)
 let pp_transparent_state s = pp (pr_transparent_state s)
 let pp_stack_t n = pp (Reductionops.Stack.pr Termops.print_constr n)
+let pp_cst_stack_t n = pp (Reductionops.Cst_stack.pr n)
 
 (* proof printers *)
 let pr_evar ev = Pp.int (Evar.repr ev)
-- 
cgit v1.2.3