diff options
| author | Hugo Herbelin | 2016-09-16 15:46:31 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2016-09-16 15:49:36 +0200 |
| commit | e6eef565639fb3840dd235eb675ece6e4dbeb082 (patch) | |
| tree | c222c842f7fad5f30bfc195962ee6984ee723fd8 /printing/pptactic.ml | |
| parent | 1a1af4f2119715245b8d4488664a8b57f4bdce08 (diff) | |
Addressing OCaml compilation warnings.
One of them revealed a true bug.
Diffstat (limited to 'printing/pptactic.ml')
| -rw-r--r-- | printing/pptactic.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index e2c78a5075..f3117db170 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -802,7 +802,7 @@ module Make let pr_with_bindings_arg = pr_with_bindings_arg pr.pr_constr pr.pr_lconstr in let pr_red_expr = pr_red_expr (pr.pr_constr,pr.pr_lconstr,pr.pr_constant,pr.pr_pattern) in - let pr_constrarg c = spc () ++ pr.pr_constr c in + let _pr_constrarg c = spc () ++ pr.pr_constr c in let pr_lconstrarg c = spc () ++ pr.pr_lconstr c in let pr_intarg n = spc () ++ int n in @@ -850,7 +850,7 @@ module Make prlist pr_binder_fix bll ++ annot ++ str" :" ++ pr_lconstrarg ty ++ str")") in (* spc() ++ - hov 0 (pr_id id ++ pr_intarg n ++ str":" ++ pr_constrarg + hov 0 (pr_id id ++ pr_intarg n ++ str":" ++ _pr_constrarg c) *) let pr_cofix_tac (id,c) = |