anchor.diff:  	Response = #radius{code = ?AccessChallenge, id = RadiusID,
   			authenticator = ResponseAuthenticator, attributes = AttributeData},
   	ResponsePacket = radius:codec(Response),
  -	radius:response(RadiusFsm, ResponsePacket),
  +	radius:response(RadiusFsm, {response, ResponsePacket}),
   	NewStateData = StateData#statedata{eap_id = EapID,
   			token = Token, prep = none},
   	{next_state, wait_for_id, NewStateData, ?TIMEOUT}.
  
positive.code: 		Response = #radius{code = ?AccessChallenge, id = RadiusID,
  				authenticator = ResponseAuthenticator, attributes = AttributeData},
  		ResponsePacket = radius:codec(Response),
  		radius:response(RadiusFsm, ResponsePacket),
  		NewStateData = StateData#statedata{pwe = PWE, s_rand = S_rand, peer_id = PeerID,
  			eap_id = NewEAPID, scalar_s = ScalarS, element_s = ElementS},
  		{next_state, wait_for_commit, NewStateData, ?TIMEOUT}
  
negative.code: 	Response = #radius{code = ?AccessReject, id = RadiusID,
  		authenticator = ResponseAuthenticator, attributes = AttributeData},
  			ResponsePacket = radius:codec(Response),
  	radius:response(RadiusFsm, {response, ResponsePacket}).
  