diff options
| author | Matthieu Sozeau | 2014-06-11 15:41:40 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-06-11 15:42:51 +0200 |
| commit | a26b8afbe5b6b0b5bb034884f5271c6d845a67b4 (patch) | |
| tree | b21bca651952bd5f40a65c61056eb5305b8a7a7c /dev | |
| parent | e781fdf9a135526e67ebb014412c663d54ef9e28 (diff) | |
- Fix bug #3368, due to wrong use of the Cst_stack for projections.
- Monomorphize Cst_stack to 'a = constr.
- Add corresponding debug printer.
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/include | 2 | ||||
| -rw-r--r-- | dev/top_printers.ml | 1 |
2 files changed, 3 insertions, 0 deletions
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) |