diff options
| author | Emilio Jesus Gallego Arias | 2019-07-04 10:27:35 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-07-04 10:27:35 +0200 |
| commit | 1c9aa339042030f756d1957abed7d3b698ff83f5 (patch) | |
| tree | ea8da28bdd5b230974cdf3c3fa35fbd9d411963d /interp/decls.mli | |
| parent | a661aadbc7120b93ccf8507c0173ffd6cfa3a0f8 (diff) | |
| parent | 1cc661d18f67f71a494b525b1f82fd9133ee5a3c (diff) | |
Merge PR #10461: Simplify Declare.declare_variable
Reviewed-by: ejgallego
Reviewed-by: maximedenes
Reviewed-by: ppedrot
Diffstat (limited to 'interp/decls.mli')
| -rw-r--r-- | interp/decls.mli | 16 |
1 files changed, 4 insertions, 12 deletions
diff --git a/interp/decls.mli b/interp/decls.mli index 05e4be0de6..56866aeb43 100644 --- a/interp/decls.mli +++ b/interp/decls.mli @@ -60,19 +60,13 @@ type logical_kind = (** Registration and access to the table of variable *) -type variable_data = - { path:DirPath.t - ; opaque:bool - ; univs:Univ.ContextSet.t - ; poly:bool - ; kind:logical_kind - } +type variable_data = { + opaque:bool; + kind:logical_kind; +} val add_variable_data : variable -> variable_data -> unit -(* Not used *) -val variable_path : variable -> DirPath.t - (* Only used in dumpglob *) val variable_secpath : variable -> qualid val variable_kind : variable -> logical_kind @@ -81,6 +75,4 @@ val variable_kind : variable -> logical_kind val variable_opacity : variable -> bool (* Used in declare, very dubious *) -val variable_context : variable -> Univ.ContextSet.t -val variable_polymorphic : variable -> bool val variable_exists : variable -> bool |