Re: [PATCH v3 3/3] emacs: Use `dolist' instead of `mapcar' for side-effects
Jonas Bernoulli writes: > As recommended by the byte-compiler. pushed to master. d ___ notmuch mailing list notmuch@notmuchmail.org https://notmuchmail.org/mailman/listinfo/notmuch
Re: [PATCH v3 3/3] emacs: Use `dolist' instead of `mapcar' for side-effects
On Sat, Apr 25 2020, Jonas Bernoulli wrote: > As recommended by the byte-compiler. I don't know about v3 2/3, but this, v3 3/3 looks good to me. Tomi > --- > test/emacs-attachment-warnings.el | 23 +++ > 1 file changed, 11 insertions(+), 12 deletions(-) > > diff --git a/test/emacs-attachment-warnings.el > b/test/emacs-attachment-warnings.el > index a23692d7..8f4918ef 100644 > --- a/test/emacs-attachment-warnings.el > +++ b/test/emacs-attachment-warnings.el > @@ -67,16 +67,15 @@ (defvar attachment-check-tests > > (defun notmuch-test-attachment-warning-1 () >(let (output expected) > -(mapcar (lambda (test) > - (let* ((expect (car test)) > - (body (cdr test)) > - (result (attachment-check-test body))) > - (push expect expected) > - (push (if (eq result expect) > - result > - ;; In the case of a failure, include the test > - ;; details to make it simpler to debug. > - (format "%S <-- %S" result body)) > - output))) > - attachment-check-tests) > +(dolist (test attachment-check-tests) > + (let* ((expect (car test)) > + (body (cdr test)) > + (result (attachment-check-test body))) > + (push expect expected) > + (push (if (eq result expect) > + result > + ;; In the case of a failure, include the test > + ;; details to make it simpler to debug. > + (format "%S <-- %S" result body)) > + output))) > (notmuch-test-expect-equal output expected))) > -- > 2.26.0 ___ notmuch mailing list notmuch@notmuchmail.org https://notmuchmail.org/mailman/listinfo/notmuch
[PATCH v3 3/3] emacs: Use `dolist' instead of `mapcar' for side-effects
As recommended by the byte-compiler. --- test/emacs-attachment-warnings.el | 23 +++ 1 file changed, 11 insertions(+), 12 deletions(-) diff --git a/test/emacs-attachment-warnings.el b/test/emacs-attachment-warnings.el index a23692d7..8f4918ef 100644 --- a/test/emacs-attachment-warnings.el +++ b/test/emacs-attachment-warnings.el @@ -67,16 +67,15 @@ (defvar attachment-check-tests (defun notmuch-test-attachment-warning-1 () (let (output expected) -(mapcar (lambda (test) - (let* ((expect (car test)) -(body (cdr test)) -(result (attachment-check-test body))) - (push expect expected) - (push (if (eq result expect) - result - ;; In the case of a failure, include the test - ;; details to make it simpler to debug. - (format "%S <-- %S" result body)) - output))) - attachment-check-tests) +(dolist (test attachment-check-tests) + (let* ((expect (car test)) +(body (cdr test)) +(result (attachment-check-test body))) + (push expect expected) + (push (if (eq result expect) + result + ;; In the case of a failure, include the test + ;; details to make it simpler to debug. + (format "%S <-- %S" result body)) + output))) (notmuch-test-expect-equal output expected))) -- 2.26.0 ___ notmuch mailing list notmuch@notmuchmail.org https://notmuchmail.org/mailman/listinfo/notmuch