From 61d11c649b4cd68e92861e2fea86f6c6a6b5bb6a Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 27 Apr 2006 19:37:33 +0000
Subject: Standardisation nom option_app en option_map

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8752 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/modops.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel/modops.ml')

diff --git a/kernel/modops.ml b/kernel/modops.ml
index 166b230077..5fece5b1fd 100644
--- a/kernel/modops.ml
+++ b/kernel/modops.ml
@@ -211,7 +211,7 @@ let resolver_of_environment mbid modtype mp env =
          if constant.Declarations.const_opaque then
           None
          else
-          option_app Declarations.force
+          option_map Declarations.force
            constant.Declarations.const_body
       with Not_found -> error_no_such_label (con_label con')
      in
-- 
cgit v1.2.3