diff options
| author | herbelin | 2006-10-06 08:31:08 +0000 |
|---|---|---|
| committer | herbelin | 2006-10-06 08:31:08 +0000 |
| commit | ea1cb421a9891df15cc8e60f130fc329a11c8d3a (patch) | |
| tree | 5a5e166b452423d19ff4b9d64ad25079bcdec0b6 /interp/notation.ml | |
| parent | e4c48f3da68f3c3f8d0e9dada278120004eb8970 (diff) | |
Annulation de l'essai de changement de sémantique du %scope (révision 9208).
Retour à une sémantique où les %scope s'appliquent à la
sous-expression complète (trop de pbs: constantes polymorphes sans
arguments scope, variables locales de type fonctionnel, ...).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9218 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/notation.ml')
| -rw-r--r-- | interp/notation.ml | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/interp/notation.ml b/interp/notation.ml index 0e6f02c52c..c218e5cf3f 100644 --- a/interp/notation.ml +++ b/interp/notation.ml @@ -133,13 +133,7 @@ let push_scopes = List.fold_right push_scope type local_scopes = tmp_scope_name option * scope_name list let make_current_scopes (tmp_scope,scopes) = - match tmp_scope with - | Some (ExplicitTmpScope sc) -> - if (* recursive *) false - then push_scope sc (push_scopes scopes !scope_stack) - else [Scope sc] - | Some (LightTmpScope sc) -> push_scope sc (push_scopes scopes !scope_stack) - | None -> push_scopes scopes !scope_stack + option_fold_right push_scope tmp_scope (push_scopes scopes !scope_stack) (**********************************************************************) (* Delimiters *) |