(error-key error) -> symbol
Returns the error key for the given error.
Example:
>> (define (identity-method x) x) :: #f >> (define e (guard identity-method (error 'foo))) :: #f >> (error-key e) :: foo