CR: Drop code for non-existent primitives

ocsigen · Sep 23, 2024 · 0998c20 · 0998c20
1 parent 1f34bb6
commit 0998c20
Showing 1 changed file with 0 additions and 2 deletions.
diff --git 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