Update code to new assoc-let

1 files changed, 5 insertions, 4 deletions

diff --git a/sx-request.el b/sx-request.el
index 56362fc..f8feb22 100644
--- a/sx-request.el
+++ b/sx-request.el
@@ -107,15 +107,16 @@ 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)))))))
+              :hi
+              .items)))))))
 
 
 ;;; Support Functions