diff options
| author | Pierre-Marie Pédrot | 2016-09-30 12:33:31 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-12-29 14:46:32 +0100 |
| commit | a4c8ee5ccffd2b56acf5e6719213e9799e077601 (patch) | |
| tree | 73a81385bae814c274bb96850857f736035b7fbe /kernel/csymtable.ml | |
| parent | 90a246c9c0bd93c442ae74b4c3f0f3519ce7f306 (diff) | |
Fast environment lookup for rels.
We take advantage of the range structure to get a O(log n) retrieval of values
bound to a rel in an environment.
Diffstat (limited to 'kernel/csymtable.ml')
| -rw-r--r-- | kernel/csymtable.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/csymtable.ml b/kernel/csymtable.ml index 2ffe36fcf7..712c66f11d 100644 --- a/kernel/csymtable.ml +++ b/kernel/csymtable.ml @@ -198,7 +198,7 @@ and slot_for_fv env fv = let rv = Pre_env.lookup_rel_val i env in begin match force_lazy_val rv with | None -> - env.env_rel_context |> Context.Rel.lookup i |> RelDecl.get_value |> fill_fv_cache rv i val_of_rel env_of_rel + env |> Pre_env.lookup_rel i |> RelDecl.get_value |> fill_fv_cache rv i val_of_rel env_of_rel | Some (v, _) -> v end | FVuniv_var idu -> |