anchor.diff:              false
       end.
   %%
  +-define(
  +   timeout_event_type(Type),
  +   case (Type) of
  +       timeout -> true;
  +       state_timeout -> true;
  +       {timeout,_} -> true;
  +       _ -> false
  +   end).
  +timeout_event_type(Type) ->
  +    ?timeout_event_type(Type).
  +%%
  +-define(
  +   from(From),
  +   case (From) of
  +       {_,_} when is_pid(element(1, (From))) -> true;
  +       _ -> false
  +   end).
  +from(From) ->
  +    ?from(From).
  +%%
   event_type(Type) ->
       case Type of
  -	{call,From} -> from(From);
  +	{call,From} -> ?from(From);
           %%
   	cast -> true;
   	info -> true;
   	internal -> true;
  -        _ -> timeout_event_type(Type)
  -    end.
  -%%
  -from({Pid,_}) when is_pid(Pid) -> true;
  -from(_) -> false.
  -%%
  -timeout_event_type(Type) ->
  -    case Type of
  -        timeout -> true;
  -        state_timeout -> true;
  -        {timeout,_Name} -> true;
  -        _ -> false
  +        %%
  +        _ -> ?timeout_event_type(Type)
       end.
   
   
  
positive.code:       CallEnter, StateCall, listify(Actions)).
  %%
  %% Shortcut for no actions
  -compile({inline, [loop_actions/10]}).
  loop_actions(
    P, Debug, S, Q, NextState_NewData,
    NextEventsR, Hibernate, TimeoutsR, Postpone,
  
negative.code: 
  %% Make a state call (not state enter call) to the state function
  %%
  -compile({inline, [loop_state_callback/6]}).
  loop_state_callback(P, Debug, S, Q, State_Data, CallbackEvent) ->
      NextEventsR = [],
      Hibernate = false,
  