diff options
Diffstat (limited to 'interp/notation.ml')
| -rw-r--r-- | interp/notation.ml | 5 |
1 files changed, 5 insertions, 0 deletions
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 *) |