From 697b0f15cac660ea044ac8226c8e09e1d2cdb064 Mon Sep 17 00:00:00 2001
From: soubiran
Date: Fri, 13 Feb 2009 14:07:29 +0000
Subject: Bug 2050, commit v8.2 11923-11924 ---> trunk

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

(limited to 'kernel/modops.ml')

diff --git a/kernel/modops.ml b/kernel/modops.ml
index f904bab548..8febff5e85 100644
--- a/kernel/modops.ml
+++ b/kernel/modops.ml
@@ -273,9 +273,9 @@ let rec eval_struct env = function
 	      (subst_key (map_msid msid mp) sub_alias)
 	      (map_msid msid mp)
 	| _ -> sub_alias in
-      let sub_alias1 = update_subst sub_alias 
-	(map_mbid farg_id mp (None)) in
-      let resolve = resolver_of_environment farg_id farg_b mp sub_alias env in
+       let resolve = resolver_of_environment farg_id farg_b mp sub_alias env in
+     let sub_alias1 = update_subst sub_alias 
+	(map_mbid farg_id mp (Some resolve)) in
 	eval_struct env (subst_struct_expr 
 			   (join sub_alias1 
 			      (map_mbid farg_id mp (Some resolve))) fbody_b)
-- 
cgit v1.2.3