diff options
| author | Pierre-Marie Pédrot | 2019-07-19 16:50:41 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-07-19 16:50:41 +0200 |
| commit | c80dfb6bd8ff8625ced2cae8b6789707f904a118 (patch) | |
| tree | 106480405b769cc1e2513549113394cdfef3e200 /kernel/cClosure.ml | |
| parent | fc2cb2c7d483302b908abf821d63e82f28a57570 (diff) | |
| parent | bc04d3196a62a52caca96014448b7b966baedd0c (diff) | |
Merge PR #10521: Move unfold_side_flags CClosure -> Tacred internals
Reviewed-by: ppedrot
Diffstat (limited to 'kernel/cClosure.ml')
| -rw-r--r-- | kernel/cClosure.ml | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/kernel/cClosure.ml b/kernel/cClosure.ml index 6be8a59aeb..1cc3dc3975 100644 --- a/kernel/cClosure.ml +++ b/kernel/cClosure.ml @@ -211,15 +211,6 @@ let delta = mkflags [fDELTA] let zeta = mkflags [fZETA] let nored = no_red -(* Removing fZETA for finer behaviour would break many developments *) -let unfold_side_flags = [fBETA;fMATCH;fFIX;fCOFIX;fZETA] -let unfold_side_red = mkflags [fBETA;fMATCH;fFIX;fCOFIX;fZETA] -let unfold_red kn = - let flag = match kn with - | EvalVarRef id -> fVAR id - | EvalConstRef kn -> fCONST kn in - mkflags (flag::unfold_side_flags) - (* Flags of reduction and cache of constants: 'a is a type that may be * mapped to constr. 'a infos implements a cache for constants and * abstractions, storing a representation (of type 'a) of the body of |