diff options
| author | Hugo Thunnissen <devel@hugot.nl> | 2023-08-16 08:41:44 +0200 |
|---|---|---|
| committer | Hugo Thunnissen <devel@hugot.nl> | 2023-08-16 09:04:10 +0200 |
| commit | 2d29bce49887e62dd18ca84805aa301cf09fde62 (patch) | |
| tree | 39577c7e71fd8ace6081164e2e1f55ac25670edd /phpinspect-pipeline.el | |
| parent | 20ec37481aaffbcdcc27ba577a4c6a8624572231 (diff) | |
Apply overall code quality improvements
Even benchmarks and tests now compile without warnings or errors :)
This includes patches from Stefan Monnier:
- https://lists.gnu.org/archive/html/emacs-devel/2023-08/msg00548.html
Diffstat (limited to 'phpinspect-pipeline.el')
| -rw-r--r-- | phpinspect-pipeline.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/phpinspect-pipeline.el b/phpinspect-pipeline.el index c9c7cf2..8323628 100644 --- a/phpinspect-pipeline.el +++ b/phpinspect-pipeline.el @@ -258,9 +258,10 @@ directories." (pcase key (:into - (let ((parameters) - (name) - (construct-params)) + (let* ((construct-params (cons nil nil)) + (cons-params-rear construct-params) + parameters name) + (if (listp value) (progn (setq name (car value) @@ -275,8 +276,9 @@ directories." (setq key (pop parameters) value (pop parameters)) (setq key (intern (string-replace ":with-" ":" (symbol-name key)))) - (setq construct-params (nconc construct-params (list key value))))) - (push (apply #'phpinspect--make-pipeline-step `(,@construct-params :name ,name)) + (setq cons-params-rear + (setcdr cons-params-rear (cons key (cons value nil)))))) + (push (apply #'phpinspect--make-pipeline-step `(,@(cdr construct-params) :name ,name)) steps))) (_ (error "unexpected key %s" key)))) |
