diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-03-02 23:06:27 -0300 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-03-02 23:29:13 -0300 |
| commit | c00ed8c6bbd8e948a3142c71b3bbb3ab86c04959 (patch) | |
| tree | a7286ee6271360597f95b7c5339ea660d2317932 /sx-request.el | |
| parent | 6fb8fd50aa5a4e7486aa6a23ca50829960c13183 (diff) | |
Fix a few leftover vectors
Diffstat (limited to 'sx-request.el')
| -rw-r--r-- | sx-request.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/sx-request.el b/sx-request.el index 546ae94..4914705 100644 --- a/sx-request.el +++ b/sx-request.el @@ -112,7 +112,7 @@ access the response wrapper." ;; @TODO: Refactor. This is the product of a late-night jam ;; session... it is not intended to be model code. (declare (indent 1)) - (let* ((return-value []) + (let* ((return-value nil) (current-page 1) (stop-when (or stop-when #'sx-request-all-stop-when-no-more)) (process-function #'identity) @@ -122,14 +122,14 @@ access the response wrapper." (while (not (funcall stop-when response)) (setq current-page (1+ current-page) return-value - (vconcat return-value - (cdr (assoc 'items response)))) + (nconc return-value + (cdr (assoc 'items response)))) (sleep-for sx-request-all-items-delay) (setq response (sx-request-make method `((page . ,current-page) ,@args) request-method process-function))) - (vconcat return-value - (cdr (assoc 'items response))))) + (nconc return-value + (cdr (assoc 'items response))))) ;;; NOTE: Whenever this is arglist changes, `sx-request-fallback' must ;;; also change. |