From e8ccf6120f3765e04c527bca8b2b1fffc6df08ca Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Tue, 21 Aug 2018 14:59:23 +0200
Subject: Fixing #8270 (cbn was calling zeta even when not asked for).

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

(limited to 'proofs/redexpr.ml')

diff --git a/proofs/redexpr.ml b/proofs/redexpr.ml
index 629b77be2a..44685d2bbd 100644
--- a/proofs/redexpr.ml
+++ b/proofs/redexpr.ml
@@ -52,7 +52,7 @@ let whd_cbn flags env sigma t =
   Reductionops.Stack.zip ~refold:true sigma state
 
 let strong_cbn flags =
-  strong (whd_cbn flags)
+  strong_with_flags whd_cbn flags
 
 let simplIsCbn = ref (false)
 let _ = Goptions.declare_bool_option {
-- 
cgit v1.2.3