summaryrefslogtreecommitdiff
path: root/phpinspect-pipeline.el
diff options
context:
space:
mode:
authorHugo Thunnissen <devel@hugot.nl>2023-08-16 08:41:44 +0200
committerHugo Thunnissen <devel@hugot.nl>2023-08-16 09:04:10 +0200
commit2d29bce49887e62dd18ca84805aa301cf09fde62 (patch)
tree39577c7e71fd8ace6081164e2e1f55ac25670edd /phpinspect-pipeline.el
parent20ec37481aaffbcdcc27ba577a4c6a8624572231 (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.el12
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))))