diff options
| author | herbelin | 2004-02-20 15:04:55 +0000 |
|---|---|---|
| committer | herbelin | 2004-02-20 15:04:55 +0000 |
| commit | 384113b921e09484d0e570a23ff9013f2343e5eb (patch) | |
| tree | 40c40216f434205642eed162c4b1ee210d56930b | |
| parent | 36a6da6a1256f489b63170f8102bc904ba340c2b (diff) | |
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
| -rw-r--r-- | interp/symbols.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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) } |