From 72029c8b00126f92c8f8e8d73e6c27b0b0a8b685 Mon Sep 17 00:00:00 2001
From: Guillaume Melquiond
Date: Thu, 25 Jul 2019 13:51:51 +0200
Subject: 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)
---
 kernel/cClosure.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel')

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;
-- 
cgit v1.2.3