From 4a6b89e79d67bdaf4d0c07ae5d15c6b6154d3e30 Mon Sep 17 00:00:00 2001 From: letouzey Date: Tue, 7 Aug 2012 19:30:59 +0000 Subject: Avoid Pp.std_ppcmds in Misctypes.sort_info Otherwise, after a Set Printing Universes we may end on a comparison of Pp.std_ppcmds, which may fail on functional values (cf. Constrextern.check_same_type), as notice by Pierre-Marie git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15697 85f007b7-540e-0410-9357-904b9bb8a0f7 --- 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 38f5fc1c6..0948b31f3 100644 --- a/printing/ppconstr.ml +++ b/printing/ppconstr.ml @@ -113,7 +113,7 @@ let pr_in_comment pr x = str "(* " ++ pr x ++ str " *)" let pr_glob_sort = function | GProp -> str "Prop" | GSet -> str "Set" - | GType u -> hov 0 (str "Type" ++ pr_opt (pr_in_comment (fun x->x)) u) + | GType u -> hov 0 (str "Type" ++ pr_opt (pr_in_comment str) u) let pr_id = pr_id let pr_name = pr_name -- cgit v1.2.3