From 05afd04095e35d77ca135bd2c1cb8d303ea2d6a8 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>
Date: Thu, 24 Nov 2016 18:18:17 +0100
Subject: Ltac now uses evar-based constrs.

---
 pretyping/evardefine.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'pretyping/evardefine.ml')

diff --git a/pretyping/evardefine.ml b/pretyping/evardefine.ml
index d4b46c046..875e4a118 100644
--- a/pretyping/evardefine.ml
+++ b/pretyping/evardefine.ml
@@ -208,6 +208,6 @@ let split_tycon loc env evd tycon =
 let valcon_of_tycon x = x
 let lift_tycon n = Option.map (lift n)
 
-let pr_tycon env = function
+let pr_tycon env sigma = function
     None -> str "None"
-  | Some t -> Termops.print_constr_env env (EConstr.Unsafe.to_constr t)
+  | Some t -> Termops.print_constr_env env sigma t
-- 
cgit v1.2.3