diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2015-01-18 23:49:38 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2015-01-18 23:54:06 +0100 |
| commit | 498d22e9575ecf2515ae592a07b3f50e7648882f (patch) | |
| tree | 76c8b9ef41a920f8ed6c51e2868612e758e689f4 /proofs/redexpr.ml | |
| parent | eaa3d0b15adf4eb11ffb00ab087746a5b15c4d5d (diff) | |
Fix a big bug in native_compute tactic: since Hugo's 364decf59c, it was
actually calling the VM at Qed time.
Diffstat (limited to 'proofs/redexpr.ml')
| -rw-r--r-- | proofs/redexpr.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/redexpr.ml b/proofs/redexpr.ml index 185888673..1383d7556 100644 --- a/proofs/redexpr.ml +++ b/proofs/redexpr.ml @@ -234,7 +234,7 @@ let reduction_of_red_expr env = with Not_found -> error("unknown user-defined reduction \""^s^"\""))) | CbvVm o -> (contextualize cbv_vm cbv_vm o, VMcast) - | CbvNative o -> (contextualize cbv_native cbv_native o, VMcast) + | CbvNative o -> (contextualize cbv_native cbv_native o, NATIVEcast) in reduction_of_red_expr |