diff options
| author | Maxime Dénès | 2019-04-05 10:22:25 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2019-04-05 10:22:25 +0200 |
| commit | 8750682e367d7e78634bf88e667e4c9e7c3613d3 (patch) | |
| tree | 5a62ebfa1b482c37727ccca2ab18e088fb282ade /interp | |
| parent | be6f3a6234ee809dd3c290621d80c3280a41355e (diff) | |
Remove cache in Heads
This cache makes the pretyper depend on components that should morally
be higher-level (Libobject and co), so I'd like to see how critical this
cache is before taking any action.
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/declare.ml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/interp/declare.ml b/interp/declare.ml index 08a6ac5f7b..717f8ef49a 100644 --- a/interp/declare.ml +++ b/interp/declare.ml @@ -119,7 +119,6 @@ let set_declare_scheme f = declare_scheme := f let update_tables c = declare_constant_implicits c; - Heads.declare_head (EvalConstRef c); Notation.declare_ref_arguments_scope Evd.empty (ConstRef c) let register_side_effect (c, role) = @@ -257,7 +256,6 @@ let declare_variable id obj = let oname = add_leaf id (inVariable (Inr (id,obj))) in declare_var_implicits id; Notation.declare_ref_arguments_scope Evd.empty (VarRef id); - Heads.declare_head (EvalVarRef id); oname (** Declaration of inductive blocks *) |