diff --git a/compiler/lib/eval.ml b/compiler/lib/eval.ml
index 56aca99c9c..86f068e4cd 100644
--- a/compiler/lib/eval.ml
+++ b/compiler/lib/eval.ml
@@ -175,8 +175,6 @@ let eval_prim ~target x =
       | "caml_int_of_float", [ Float f ] ->
           Some
             (Int (Int32.of_float f |> Int.of_int32_warning_on_overflow |> Int.to_int32))
-      | "to_int", [ Float f ] -> Some (Int (Int32.of_float f))
-      | "to_int", [ Int i ] -> Some (Int i)
       (* Math *)
       | "caml_neg_float", _ -> float_unop l ( ~-. )
       | "caml_abs_float", _ -> float_unop l abs_float