anchor.diff:  			Attr3 = radius_attributes:store(?Microsoft,
   					?MsMppeRecvKey, {Salt, MsMppeKey}, Attr2),
   			EapPacket = #eap_packet{code = success, identifier = EapID},
  -			send_response(EapPacket, ?AccessAccept, Attr3, RadiusID,
  +			send_radius_response(EapPacket, ?AccessAccept, Attr3, RadiusID,
   					RequestAuthenticator, RequestAttributes, StateData),
   			{stop, {shutdown, SessionID}, StateData#statedata{mk = MK, msk = MSK}};
   		{unauthorized, disabled, ExistingSessionAttributes} ->
   			start_disconnect(radius, ExistingSessionAttributes, StateData),
   			EapPacket = #eap_packet{code = failure, identifier = EapID},
  -			send_response(EapPacket, ?AccessReject, [], RadiusID,
  +			send_radius_response(EapPacket, ?AccessReject, [], RadiusID,
   					RequestAuthenticator, RequestAttributes, StateData),
   			{stop, {shutdown, SessionID}, StateData};
   		{unauthorized, _Reason, _ExistingSessionAttributes} ->
   			EapPacket = #eap_packet{code = failure, identifier = EapID},
  -			send_response(EapPacket, ?AccessReject, [], RadiusID,
  +			send_radius_response(EapPacket, ?AccessReject, [], RadiusID,
   					RequestAuthenticator, RequestAttributes, StateData),
   			{stop, {shutdown, SessionID}, StateData}
   	end.
  
positive.code: 			commit4(AccessRequest, StateData);
  		_ScalarP_Out_of_Range ->
  			EapPacket = #eap_packet{code = failure, identifier = EapID},
  			send_response(EapPacket, ?AccessReject, [], RadiusID,
  					RequestAuthenticator, RequestAttributes, StateData),
  			{stop, {shutdown, SessionID}, StateData}
  	end.
  
negative.code: %%  internal functions
  %%----------------------------------------------------------------------
  
  -spec send_radius_response(EapPacket, RadiusCode, ResponseAttributes, RadiusID,
  		RequestAuthenticator, RequestAttributes, StateData) -> ok
  	when
  		EapPacket :: #eap_packet{},
  