anchor.diff:  %% 	gen_event:notify/2, gen_event:sync_notify/2}.
   %% @private
   %%
  -handle_event(Event, Fsm) ->
  +handle_event(Event, #state{fsm = Fsm}) ->
   	gen_fsm:send_event(Fsm, Event),
   	{ok, Fsm}.
   
  
positive.code: 
  -spec init(Args) -> Result
  	when
  		Args :: [Fsm],
  		Fsm :: pid(),
  		Result :: {ok, Fsm}
  			| {ok, Fsm, hibernate}
  			| {error, Reason :: term()}.
  %% @doc Initialize the {@module} server.
  %% @see //stdlib/gen_event:init/1
  %% @private
  %%
  init([Fsm] = _Args) ->
  	{ok, Fsm}.
  
  -spec handle_event(Event, Fsm) -> Result
  	when
  		Event :: term(),
  		Fsm :: pid(),
  		Result :: {ok, NewState}
  				| {ok, NewState, hibernate}
  				| {swap_handler, Args1, NewState, Handler2, Args2}
  				| remove_handler,
  		NewState :: term(),
  		Args1 :: term(),
  		Args2 :: term(),
  		Handler2 :: Module2 | {Module2, Id},
  
negative.code: -export([init/1, handle_call/2, handle_event/2, handle_info/2,
  			terminate/2, code_change/3]).
  
  -record(state,
  		{fsm :: pid(),
  		category :: atom()}).
  -type state() :: #state{}.
  
  %%----------------------------------------------------------------------
  %%  The ocs_event API
  %%----------------------------------------------------------------------
  