diff options
| author | Pierre-Marie Pédrot | 2019-04-15 13:59:18 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-04-15 13:59:18 +0200 |
| commit | 4b9119d8090e366ecd2e803ad30a9dd839bc8ec9 (patch) | |
| tree | 4ae4ee4190595b0510ff092c19a8ea21fd2ecb22 | |
| parent | 6d92ac48719a7abdcf33721c78f2c69101db5bf8 (diff) | |
| parent | e9738ee2d21a84fc946d168aeaa68b169b309fd8 (diff) | |
Merge PR #9927: Don't store closures in summary (reduction effects)
Reviewed-by: ppedrot
| -rw-r--r-- | pretyping/reductionops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml index 71fbfe8716..1871609e18 100644 --- a/pretyping/reductionops.ml +++ b/pretyping/reductionops.ml @@ -53,7 +53,7 @@ type effect_name = string let constant_effect_table = Summary.ref ~name:"reduction-side-effect" Cmap.empty (* Table bindings function key to effective functions *) -let effect_table = Summary.ref ~name:"reduction-function-effect" String.Map.empty +let effect_table = ref String.Map.empty (** a test to know whether a constant is actually the effect function *) let reduction_effect_hook env sigma con c = |