From ea1cb421a9891df15cc8e60f130fc329a11c8d3a Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 6 Oct 2006 08:31:08 +0000
Subject: 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
---
 interp/notation.ml | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

(limited to 'interp/notation.ml')

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 *)
-- 
cgit v1.2.3