diff options
| author | Jason Gross | 2015-06-24 15:41:11 +0200 |
|---|---|---|
| committer | Jason Gross | 2015-08-14 02:49:31 -0400 |
| commit | 6aa58955515dff338ea85d59073dfc0d0c7648ab (patch) | |
| tree | ed472dbf020c22a3080bc5e13a398914875bca11 /interp/notation.mli | |
| parent | 297b0cb44bbe8ec7304ca635c566815167266d4a (diff) | |
Move type_scope into user space, fix some output logs
Diffstat (limited to 'interp/notation.mli')
| -rw-r--r-- | interp/notation.mli | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/interp/notation.mli b/interp/notation.mli index 85c4be4cc1..2bfbb33c2d 100644 --- a/interp/notation.mli +++ b/interp/notation.mli @@ -29,7 +29,6 @@ type scopes (** = [scope_name list] *) type local_scopes = tmp_scope_name option * scope_name list -val type_scope : scope_name val declare_scope : scope_name -> unit val current_scopes : unit -> scopes @@ -165,6 +164,9 @@ val declare_ref_arguments_scope : global_reference -> unit val compute_arguments_scope : Term.types -> scope_name option list val compute_type_scope : Term.types -> scope_name option +(** Get the current scope bound to Sortclass, if it exists *) +val current_type_scope_name : unit -> scope_name option + val scope_class_of_class : Classops.cl_typ -> scope_class (** Building notation key *) |