From 384113b921e09484d0e570a23ff9013f2343e5eb Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 20 Feb 2004 15:04:55 +0000
Subject: Export des arguments scope au chargement, pas a l'ouverture

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5367 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 8ca1d207c6..d16a2b8457 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;
-      open_function = (fun i o -> if i=1 then cache_arguments_scope o);
+      load_function = (fun i o -> if i=1 then 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