Fix msg_send_super.

DavidAlphaFox · May 8, 2024 · a1514fb · a1514fb
1 parent b71e871
commit a1514fb
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/runtime/runtime.ml b/runtime/runtime.ml
@@ -130,12 +130,14 @@ struct
  (** Sends a message with a simple return value to the superclass
  of an instance of a class. *)
  let msg_send_super ~self ~cmd ~typ =
- match Platform.current with
+ let self = Class.get_superclass self in
+ msg_send ~self ~cmd ~typ
+ (* match Platform.current with
  | GNUStep ->
  let self = Class.get_superclass self in
  msg_send ~self ~cmd ~typ
  | _ ->
- foreign "objc_msgSendSuper" (id @-> _SEL @-> typ) self cmd
+ foreign "objc_msgSendSuper" (id @-> _SEL @-> typ) self cmd *)
  ;;
 
  (** Shortcut for type [void @-> id] *)