aboutsummaryrefslogtreecommitdiff
path: root/kernel
diff options
context:
space:
mode:
authorGuillaume Melquiond2019-07-25 13:51:51 +0200
committerGuillaume Melquiond2019-07-25 13:51:51 +0200
commit72029c8b00126f92c8f8e8d73e6c27b0b0a8b685 (patch)
tree4ac3f6473bfe707194c56491bbbb7c7d582eed57 /kernel
parent3823ace92d92b2f5ee697ff156fe72d55217a921 (diff)
Mark primitives integer as able to participate in reductions (fixes #10560).
The documentation states: - Norm means the term is fully normalized and cannot create a redex when substituted - Cstr means the term is in head normal form and that it can create a redex when substituted (i.e. constructor, fix, lambda)
Diffstat (limited to 'kernel')
-rw-r--r--kernel/cClosure.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/cClosure.ml b/kernel/cClosure.ml
index 1cc3dc3975..3fd613e905 100644
--- a/kernel/cClosure.ml
+++ b/kernel/cClosure.ml
@@ -1075,7 +1075,7 @@ module FNativeEntries =
let mkInt env i =
check_int env;
- { mark = mark Norm KnownR; term = FInt i }
+ { mark = mark Cstr KnownR; term = FInt i }
let mkBool env b =
check_bool env;