diff options
| author | Maxime Dénès | 2017-05-31 11:37:33 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-05-31 11:37:33 +0200 |
| commit | e7e0946401aa931ddca90d616a7968d548ab060f (patch) | |
| tree | 297dcfbb0c3daef08ac134c6b52c58ab09e3cdd3 /pretyping | |
| parent | ab19d271f91007cc76ed95d973bd9b95701c6b2e (diff) | |
| parent | 58e804f07172acc6bb01c8bdafde1217eb4ec4b8 (diff) | |
Merge PR#560: Reinstate fixpoint refolding in [cbn], deactivated by mistake (EDIT: for mutual fixpoints)
Diffstat (limited to 'pretyping')
| -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 297f0a1a8e..ba92f64b95 100644 --- a/pretyping/reductionops.ml +++ b/pretyping/reductionops.ml @@ -755,7 +755,7 @@ let contract_fix ?env ?reference ((recindices,bodynum),(names,types,bodies as ty context" in contract_fix *) let reduce_and_refold_fix recfun env refold cst_l fix sk = let raw_answer = - let env = if refold then None else Some env in + let env = if refold then Some env else None in contract_fix ?env ?reference:(Cst_stack.reference cst_l) fix in apply_subst (fun x (t,sk') -> |