Fix after! macro with multiple features

This commit is contained in:
Henrik Lissner 2018-05-28 17:31:44 +02:00
parent f8b9cff4aa
commit 4863f9fbf0
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -204,8 +204,8 @@ compilation. This will no-op on features that have been disabled by the user."
((and (consp targets) ((and (consp targets)
(memq (car targets) '(:and :all))) (memq (car targets) '(:and :all)))
(dolist (next (cdr targets)) (dolist (next (cdr targets))
(setq body `(after! ,next ,@body))) (setq body `((after! ,next ,@body))))
body) (car body))
((listp targets) ((listp targets)
`(after! (:all ,@targets) ,@body)))))) `(after! (:all ,@targets) ,@body))))))