Improve to_selector.

dboris · Nov 3, 2024 · 6b60b0e · 6b60b0e
1 parent 7ffd45a
commit 6b60b0e
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/runtime/runtime.ml b/runtime/runtime.ml
@@ -69,7 +69,8 @@ let selector = Sel.register_name
 (** Returns the selector name as string. *)
 let string_of_selector = Sel.get_name
 
-let to_selector = coerce (ptr void) _SEL
+let to_selector p =
+  to_voidp p |> coerce (ptr void) _SEL
 
 module Objc = struct
   include C.Functions.Objc