From 0c320e79ba30bf567d4ca194bc114d733baf76e5 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Thu, 2 Oct 2014 18:58:54 +0200
Subject: Fixing interpretation of constr under binders which was broken after
 it became possible to have binding names themselves bound to ltac variables
 (2fcc458af16b).

---
 dev/top_printers.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'dev')

diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index 2cbac21753..0345ddfabc 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -104,7 +104,7 @@ let ppevarsubst = ppidmap (fun id0 -> prset (fun (c,copt,id) ->
     else spc () ++ str "<canonical: " ++ pr_id id ++ str ">"))))
 
 let ppconstrunderbindersidmap l = ppidmap (fun id (l,c) ->
-  Id.print id ++ str "->" ++ hov 1 (str"[" ++  prlist Id.print l ++ str"]")
+  Id.print id ++ str "->" ++ hov 1 (str"[" ++  prlist_with_sep spc Id.print l ++ str"]")
   ++ str "," ++ spc () ++ Termops.print_constr c)
 
 let ppunbound_ltac_var_map l = ppidmap (fun id arg ->
-- 
cgit v1.2.3