anchor.diff:  subscribe(Topic) -> subscribe([Topic]).
   
   send(Topic, Message) ->
  -	gen_server:call(?MODULE, {send, Topic, Message}).
  +	gen_server:cast(?MODULE, {send, self(), Topic, Message}).
   
   %% ------------------------------------------------------------------
   %% gen_server Function Definitions
  
positive.code: 	end,
  	true = ets:insert(?MODULE, [{Topic, From} || Topic <- Topics]),
  	{reply, ok, State#{ subscribers :=  NewSubs }};
  handle_call({send, Topic, Message}, {From, _}, State) ->
  	[send_event(Message, From, Rec)|| Rec <- ets:lookup(?MODULE, Topic)],
  	{reply, ok, State};
  handle_call(_Request, _From, State) ->
  	{reply, ok, State}.
  
  handle_cast(_Msg, State) ->
  	{noreply, State}.
  
  
negative.code: %% ------------------------------------------------------------------
  
  send_event(Message, From, {Topic, Subscriber, Fun}) ->
  	Fun(Subscriber, From, {Topic, Message}),
  	ok;
  send_event(Message, From, {Topic, Subscriber}) ->
  	Subscriber ! {hot_proxy_event, From, {Topic, Message}},
  	ok.
  