From 12c61c7ab522ea58bf8c5692de7130e124a2cc0a Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Thu, 20 Nov 2014 20:33:27 +0100
Subject: Exporting the function handling side-effects only applied to terms.

---
 proofs/pfedit.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'proofs')

diff --git a/proofs/pfedit.ml b/proofs/pfedit.ml
index 09d94a9cee..8e0f3accb2 100644
--- a/proofs/pfedit.ml
+++ b/proofs/pfedit.ml
@@ -149,7 +149,7 @@ let build_by_tactic env ctx ?(poly=false) typ tac =
   let sign = val_of_named_context (named_context env) in
   let gk = Global, poly, Proof Theorem in
   let ce, status, univs = build_constant_by_tactic id ctx sign ~goal_kind:gk typ tac in
-  let ce = Term_typing.handle_side_effects env ce in
+  let ce = Term_typing.handle_entry_side_effects env ce in
   let (cb, ctx), se = Future.force ce.const_entry_body in
   assert(Declareops.side_effects_is_empty se);
   assert(Univ.ContextSet.is_empty ctx);
-- 
cgit v1.2.3