Revert process.send function to previous implementation

Author: karlsson

src/gleam/erlang/process.gleam

@@ -78,6 +78,11 @@ pub fn subject_owner(subject: Subject(message)) -> Pid {
   subject.owner
 }
 
+type DoNotLeak
+
+@external(erlang, "erlang", "send")
+fn raw_send(a: Pid, b: message) -> DoNotLeak
+
 /// Send a message to a process using a `Subject`. The message must be of the
 /// type that the `Subject` accepts.
 ///
@@ -102,8 +107,10 @@ pub fn subject_owner(subject: Subject(message)) -> Pid {
 /// send(subject, "Hello, Joe!")
 /// ```
 ///
-@external(erlang, "gleam_erlang_ffi", "send")
-pub fn send(subject: Subject(message), message: message) -> Nil
+pub fn send(subject: Subject(message), message: message) -> Nil {
+  raw_send(subject.owner, #(subject.tag, message))
+  Nil
+}
 
 /// Receive a message that has been sent to current process using the `Subject`.
 ///

src/gleam_erlang_ffi.erl

@@ -8,7 +8,7 @@
     map_selector/2, merge_selector/2, flush_messages/0,
     priv_directory/1, connect_node/1, register_process/2, unregister_process/1,
     process_named/1, identity/1, pid_from_dynamic/1, reference_from_dynamic/1,
-    port_from_dynamic/1, 'receive'/1, 'receive'/2, send/2
+    port_from_dynamic/1, 'receive'/1, 'receive'/2
 ]).
 
 -spec atom_from_string(binary()) -> {ok, atom()} | {error, atom_not_loaded}.
@@ -161,10 +161,6 @@ select({selector, Handlers}, Timeout) ->
         {error, nil}
     end.
 
-send({subject, Pid, Ref}, Message) ->
-    Pid ! {Ref, Message},
-    nil.
-
 demonitor({_, Reference}) ->
     erlang:demonitor(Reference, [flush]).