Yet another normal / neutral bug in primitive conversion.

By no means a float is a neutral value. When put inside a Zprimitive context
it can trigger computation.

1 files changed, 1 insertions, 1 deletions

diff --git a/kernel/cClosure.ml b/kernel/cClosure.ml
index 236ce42628..952237ab99 100644
--- a/kernel/cClosure.ml
+++ b/kernel/cClosure.ml
@@ -1165,7 +1165,7 @@ module FNativeEntries =
 
     let mkFloat env f =
       check_float env;
-      { mark = mark Norm KnownR; term = FFloat f }
+      { mark = mark Cstr KnownR; term = FFloat f }
 
     let mkBool env b =
       check_bool env;