From ae5dc00f7a28eb8b7f0242cb2b294d3a653ab105 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 21 Feb 2004 21:18:37 +0000
Subject: Export des arguments scope au chargement, pas a l'ouverture (2eme)

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

diff --git a/interp/symbols.ml b/interp/symbols.ml
index d16a2b8457..89a65a6590 100644
--- a/interp/symbols.ml
+++ b/interp/symbols.ml
@@ -373,7 +373,7 @@ let subst_arguments_scope (_,subst,(r,scl)) = (subst_global subst r,scl)
 let (inArgumentsScope,outArgumentsScope) = 
   declare_object {(default_object "ARGUMENTS-SCOPE") with
       cache_function = cache_arguments_scope;
-      load_function = (fun i o -> if i=1 then cache_arguments_scope o);
+      load_function = (fun _ o -> cache_arguments_scope o);
       subst_function = subst_arguments_scope;
       classify_function = (fun (_,o) -> Substitute o);
       export_function = (fun x -> Some x) }
-- 
cgit v1.2.3