From e6a8ab0f428c26fff2bd7e636126974f167101bf Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Sun, 20 Nov 2016 01:35:54 +0100
Subject: Tactic_matching API using EConstr.

---
 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 b7736f4987..8290ca945f 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -109,7 +109,7 @@ let ppididmap = ppidmap (fun _ -> pr_id)
 
 let prconstrunderbindersidmap = pridmap (fun _ (l,c) ->
   hov 1 (str"[" ++  prlist_with_sep spc Id.print l ++ str"]")
-  ++ str "," ++ spc () ++ Termops.print_constr c)
+  ++ str "," ++ spc () ++ Termops.print_constr (EConstr.Unsafe.to_constr c))
 
 let ppconstrunderbindersidmap l = pp (prconstrunderbindersidmap l)
 
-- 
cgit v1.2.3