diff options
author | Sean Allred <code@seanallred.com> | 2014-11-12 19:27:57 -0500 |
---|---|---|
committer | Sean Allred <code@seanallred.com> | 2014-11-12 19:27:57 -0500 |
commit | 0a90014486f15138a457f17278e06008e7bda309 (patch) | |
tree | e05587fe742ded2795267caa755130e80fae118e /sx-request.el | |
parent | 92d30aeee31c80238a4ce5a825806dadc0e3a065 (diff) | |
parent | ea1a5e0e1ade29688d7db420d564e494dea7974c (diff) |
Merge pull request #40 from vermiculus/new-assoc-let
Fix performance issues with `sx-assoc-let' macro
Diffstat (limited to 'sx-request.el')
-rw-r--r-- | sx-request.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/sx-request.el b/sx-request.el index 56362fc..dd98ead 100644 --- a/sx-request.el +++ b/sx-request.el @@ -107,15 +107,15 @@ number of requests left every time it finishes a call.") (error "Response could not be read by `json-read-from-string'")) ;; If we get here, the response is a valid data structure (sx-assoc-let response - (when error_id + (when .error_id (error "Request failed: (%s) [%i %s] %S" - method error_id error_name error_message)) + .method .error_id .error_name .error_message)) (when (< (setq sx-request-remaining-api-requests - quota_remaining) + .quota_remaining) sx-request-remaining-api-requests-message-threshold) (sx-message "%d API requests reamining" sx-request-remaining-api-requests)) - items))))))) + .items))))))) ;;; Support Functions |