From 95e33bcedadfbc2493f3036fbdb668506bfcdab4 Mon Sep 17 00:00:00 2001
From: vsiles
Date: Thu, 30 Apr 2009 10:04:41 +0000
Subject: Fix a small notation/scope bug: When defining an inductive type with
 a reserved notation in a particuliar scope, the scope was not opened during
 the interpretation.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12117 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 interp/notation.ml | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'interp/notation.ml')

diff --git a/interp/notation.ml b/interp/notation.ml
index bb17eda2c9..e6c627e863 100644
--- a/interp/notation.ml
+++ b/interp/notation.ml
@@ -92,6 +92,11 @@ let scope_stack = ref []
 
 let current_scopes () = !scope_stack
 
+let scope_is_open_in_scopes sc l = 
+  List.mem (Scope sc) l
+
+let scope_is_open sc = scope_is_open_in_scopes sc (!scope_stack) 
+
 (* TODO: push nat_scope, z_scope, ... in scopes summary *)
 
 (* Exportation of scopes *)
-- 
cgit v1.2.3