From dea497aa1846f19693a4ae9c88497e4484d1fba0 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Fri, 8 Nov 2013 19:03:55 +0000
Subject: Removing partial applications in Reductionops.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@17071 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/reductionops.ml | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml
index acd3a7eba7..98fc8f0559 100644
--- a/pretyping/reductionops.ml
+++ b/pretyping/reductionops.ml
@@ -546,10 +546,13 @@ let local_whd_state_gen flags sigma =
   in
   whrec
 
-let raw_whd_state_gen flags env sigma s = fst (whd_state_gen false flags env sigma s)
+let raw_whd_state_gen flags env =
+  let f sigma s = fst (whd_state_gen false flags env sigma s) in
+  f
 
-let stack_red_of_state_red f sigma x =
-  decompose_app (zip (f sigma (x, empty_stack)))
+let stack_red_of_state_red f =
+  let f sigma x = decompose_app (zip (f sigma (x, empty_stack))) in
+  f
 
 let red_of_state_red f sigma x =
   zip (f sigma (x,empty_stack))
-- 
cgit v1.2.3