diff options
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/decls.ml | 4 | ||||
| -rw-r--r-- | interp/decls.mli | 4 |
2 files changed, 0 insertions, 8 deletions
diff --git a/interp/decls.ml b/interp/decls.ml index b802dbe9c3..ec5d4fa3cb 100644 --- a/interp/decls.ml +++ b/interp/decls.ml @@ -62,8 +62,6 @@ type logical_kind = type variable_data = { path:DirPath.t ; opaque:bool - ; univs:Univ.ContextSet.t - ; poly:bool ; kind:logical_kind } @@ -75,8 +73,6 @@ let add_variable_data id o = vartab := Id.Map.add id o !vartab let variable_path id = let {path} = Id.Map.find id !vartab in path let variable_opacity id = let {opaque} = Id.Map.find id !vartab in opaque let variable_kind id = let {kind} = Id.Map.find id !vartab in kind -let variable_context id = let {univs} = Id.Map.find id !vartab in univs -let variable_polymorphic id = let {poly} = Id.Map.find id !vartab in poly let variable_secpath id = let dir = drop_dirpath_prefix (Lib.library_dp()) (variable_path id) in diff --git a/interp/decls.mli b/interp/decls.mli index 05e4be0de6..2a11a271cc 100644 --- a/interp/decls.mli +++ b/interp/decls.mli @@ -63,8 +63,6 @@ type logical_kind = type variable_data = { path:DirPath.t ; opaque:bool - ; univs:Univ.ContextSet.t - ; poly:bool ; kind:logical_kind } @@ -81,6 +79,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 |