aboutsummaryrefslogtreecommitdiff
path: root/proofs/redexpr.ml
diff options
context:
space:
mode:
authorMaxime Dénès2015-01-23 14:22:53 +0100
committerMaxime Dénès2015-01-23 14:22:53 +0100
commit87106cd6a0e613fc61943959d8fc7d3ff025fc5d (patch)
tree0bbcb291dc6cde03707e615024c6d3090186c8c2 /proofs/redexpr.ml
parentc2d053c6f38a54e3083c8726eccb3e73942107b7 (diff)
parent4f632721be8b083126f49dd900a3294521879ec4 (diff)
Merge branch 'v8.5' into trunk
Diffstat (limited to 'proofs/redexpr.ml')
-rw-r--r--proofs/redexpr.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/redexpr.ml b/proofs/redexpr.ml
index 1858886731..1383d75567 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