diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-02-21 21:18:37 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-02-21 21:18:37 +0000 |
| commit | ae5dc00f7a28eb8b7f0242cb2b294d3a653ab105 (patch) | |
| tree | 95bdbf953f9494a601ccc309d2717214f15e2a47 | |
| parent | cfedf95e3ad491cc80831a8dcdbd8b6f61de8630 (diff) | |
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
| -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 d16a2b845..89a65a659 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) } |