diff options
| author | Guillaume Melquiond | 2019-07-25 13:51:51 +0200 |
|---|---|---|
| committer | Guillaume Melquiond | 2019-07-25 13:51:51 +0200 |
| commit | 72029c8b00126f92c8f8e8d73e6c27b0b0a8b685 (patch) | |
| tree | 4ac3f6473bfe707194c56491bbbb7c7d582eed57 /kernel | |
| parent | 3823ace92d92b2f5ee697ff156fe72d55217a921 (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.ml | 2 |
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; |
